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FOREWORD 


The excellent facilities of the Amstrad computers have been of. 
great help in handling the words or letters in the many pro- 
grams in this book. Included are ways to sort words alpha- 
betically, to scramble them into anagrams, to select letters 
from words for various purposes, to locate missing letters 
from words, to place letters randomly on the screen, and 
even ways to help in the construction or solving of crossword 
puzzles. 

The many routines used for all these different ways of 
handling words or letters are explained clearly, and are insert- 
ed into the programs in such a way that they can easily be 
extracted to be used in games of your own devising. One 
game, Canyon Crossing, shows how these different routines 
can be combined in a fairly long program. 

One point should be stressed: if you want to be able to 
write programs for yourself it is essential to read, study, and. 
thoroughly understand each chapter in turn. Even if you do 
not enter all the programs (but it is recommended that you 
do), each one should be understood before you go on to the 
next. All the programs have been written and used on the 
Amstrad CPC 464, but they are completely compatible with 
the Amstrad CPC 664 and CPC 6128. 

Finally a routine has been included for those who have a 
DMP! printer. It uses BASIC to produce on paper a copy of 
the screen in black and white. It is slow, but very sure. 


W. Simister 


PLEASE NOTE 


The Publishers and Author would like to thank AMSTRAD 
Consumer Electronics plc for kindly supplying the photograph 
used in the cover illustration. Please note that the picture 
shown on the screen is not from a program contained in this 
book. 
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Chapter One 
ANAGRAMMATISM 


I cannot find the word Anagrammatism in my dictionary, but 
I take it to be the act of scrambling the letters of a word into 
a different order: forming an anagram. This very short pro- 
gram does just that. It is written so that ten different 
re-arrangements of an entered word are produced, but this can 
be altered from one to any number you wish. The program is 
at this chapter end, and is analysed very easily. 

It consists of four short sections: Initialisation (title, inks 
used, Border and GOSUB); the Game (which produces the 
word to be scrambled); the ‘shuffle-letters’ section (in which 
the anagrams are produced and printed); and the printing of 
the screen layout. We will take them in the order in which 
they are used. 

Initialisation is only a few lines: three are REM lines to 
display the title of the program. Line 40 defines the inks to 
be used. I prefer dark words on a light background, so have 
used the colours shown here. If you prefer light words on a 
dark background then alter those values shown: INK 0 is for 
the background, while INK 1 is for the lettering. You will see 
that defined in line 50, together with the BORDER. This is 
an area where personal likes are easily catered for. Spend a 
little time, when the program is entered and running, in alter- 
ing those numbers (the second one after each INK), and you 
will find that it is easy to produce any combination of colours. 
The CLS at the end of line 50 ensures that the colours are as 
you wish on a cleared screen. 

Line 60 GOSUB 3000 sends the computer to the screen 
layout section. Here, in line 3030, a FOR/NEXT loop pro- 
duces the top and bottom line of a fancy border around the 
screen. 1 TO 25 STEP 24 ensures that only the top and 
bottom lines are printed. CHR$(238) from the character set 
was chosen, and was made into a string of 40 characters with: 
‘PRINT STRINGS$(40,CHRS(238));. The semicolon (;) is 
essential, for without it the computer is triggered into scrolling 
up one line. Take out that semicolon, and watch the effect. 
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At this point it is worth emphasizing that one of the most 
usual faults with a beginner (and some more advanced pro- 
grammers, too) is carelessness in entering the correct 
punctuation marks. If I get an error message when running a 
program I have written it is most frequently caused by an 
incorrect punctuation mark; usually a semicolon instead of 
a colon (:). My excuse (a poor one) is that these two are too 
close together on the Amstrad. 

Line 3040 prints the left and right hand sides of the border, 
and is straightforward. 3050 is the Game title, and lines 3060 
and 3070 print the border of the area where the scrambled 
words are to be printed. 3080 returns the computer to the 
line after GOSUB 3000: to the Game section. 

Line 1030 contains a few words of instruction, and line 
1040 asks for a word to be entered. This INPUT is located 
at 2,22 (near the bottom of the screen), and after the printed 
request is a semicolon (;) followed by the variable W$. This 
WS will be the label of the word you enter. The next line is 
GOSUB 2000, and after the computer has gone to 2000 to 
race through the instructions there, it will RETURN (line 
2180) to the line after GOSUB 2000. 

The GOSUB/RETURN routine is one of the most useful 
facilities offered by a computer, for with its aid all the differ- 
ent routines can be kept separate, so that each can be referred 
to constantly. In the case of this program it need not have 
been used at this point, and the routine from 2030 to 2180 
could have been inserted between lines 1040 and 1060, for 
this shuffle routine is used only once in this program. How- 
ever, its separation helps you to see what each section does, 
and it is always wiser to use it when at all possible. 

In line 2030 the variable J$ (which is the one used to label 
the forthcoming scrambled word) is DIMensioned to the 
LENgth of A$ (which later is made to equal W$). A$ is 
introduced into section 2000 so that if more than one word 
is being scrambled (in other programs) and given a different 
variable (G$ or P$, for instance) then line 2060 (A$ = WS) 
could be transferred to a line after the INPUT, and there A$ 
could be made equal to the other variable. This would enable 
the shuffle routine to remain self-contained, using A$ for its 
own lines. 


Line 2050 defines the number of scrambled words to be 
produced. If lines 2050 and 2160 were removed then there 
would be only one scrambled word. Ifthe 10 were altered to 
100 there would be 100 of them. It is a:simple repeat line 
between lines 2050 and 2160. Lines 2040 (Y=0) and 2070 
(FOR X=1 TO LEN(A$)) are part of the LOCATE section, 
for they are used in line 2120. 

At 2080 L=LEN(A$), and in 2100 R=INT(RND*L)+1. 
These are two variables essential to the shuffle formula in 
line 2110 JS=MID$(A$,R,1). These three lines together with 
line 2130, must be thoroughly understood in order to 
program words and letters. 

First the L variable: L equals the LENgth of A$. A$ 
equals W$ (the word you entered), so L also equals the length 
of WS. Then, R equals the INTeger (the actual number) 
chosen randomly from the length of L (RND times L). 
Because the computer always starts numbering from 0, and 
therefore a seven letter word would be 0 to 6, we add +1 to 
the RND formula: R=INT(RND*L)+1. 

Now we come to STRING handling, and the three key- 
words: MID$, LEFT$, and RIGHTS. The way each one 
functions is different. MID$ (followed by three items 
separated by commas within brackets); for example: 
MIDS$(A$,3,1) means: one letter at position three in the 
string A$. Put in another way: String A$, position 3, 1 
letter. 

Let us suppose that the word you entered was ANTIDOTE: 
then MID$(A$,3,1) means T; MID$(A$,5,2) would mean 
DO; MID$(A$,3,4) would mean TIDO. Make sure you 
understand this properly. Use a different word than 
ANTIDOTE, and experiment. 

LEFT$ uses a different formula: LEFT$(A$,3). There 
are only two expressions within the brackets. For instance: 
LEFT$(A$,3) in reference to ANTIDOTE means ANT. 
LEFTS selects the letters to the left of (and including) 3. 
LEFT$(A$,1) means A. LEFT$(A$,7) means ANTIDOT. 

RIGHTS$ is similar to, but opposite to, LEFT$, for, using” 
ANTIDOTE: RIGHT$(A$,1) would mean E; RIGHT$(A$,7) 
would mean NTIDOTE; RIGHT$(A$,4) would mean DOTE. 
RIGHT$ selects the number given from the right (including 
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that number). 

Study these three keywords very thoroughly. MID$ will 
pick out any letter, or number of letters, from anywhere in 
the string. LEFTS starts from the left, and picks out the 
letters up to and including the one numbered. RIGHTS 
starts from the right, and counts back to and including the 
one numbered. Don’t forget that including. 

If you have really grasped that, then the explanation of 
the important lines of this program should now be com- 
pletely understood. Line 2110 J$=MID$(A$,R,1) means that 
the position of the single letter selected is governed by R, 
which is the one randomly chosen in line 2100. 

2120 LOCATE X+13,Y+8: PRINT J$ refers back to line 
2040, where Y=0, and line 2070, where X=1 TO the length of 
A$. So X=13 means (on the first pass of the FOR/NEXT 
loop X), 1+position 13 (that is 14); Y+8 means 8. Therefore 
LOCATE 14,8:. On the second pass it would be 15,8:, and 
on the third pass, 16,8:. Thus the letters selected are placed 
one after the other to the LENgth of A$ on row 8. 

Now comes the tricky bit. Line 2130 A$=LEFT$(A$,R—1) 
+RIGHT$(A$,L—R). This line is there to ensure that on its 
second pass through A$ to select a letter at random from A$, 
it does it from an A$ that no longer contains the previous 
letter chosen. Try reading that again. 

Let us suppose that the word is ANTIDOTE, and that line 
2110 selected the I with its R variable. Therefore, before the 
sequence is gone through again, we wish A$ to equal 
ANTDOTE (with the I missing). Line 2130 does that extrac- 
tion of the I with the aid of LEFT$ and RIGHTS. On that 
first pass (through loop X) I was randomly chosen by R; I 
is the fourth letter, so R had become equal to 4. Therefore 
LEFT$(A$,4—1) would mean ANT. 

The RIGHTS part of the formula would read RIGHTS 
(A$,L—4): that is the LENGTH at the right of 4, but minus 
the single letter numbered 4 from the right; and so it would 
mean DOTE. The plus sign in the middle of the formula 
means that A$ now equals ANT+DOTE, so on the second pass 
through loop X the I would not be included. 

If you have not previously handled strings in this way, it 
will be best if you study this matter thoroughly. In the last 
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few paragraphs is all the information needed to become 
thoroughly familiar with handling strings in this manner on 
the Amstrad. 

When line 2140 NEXT X has used up the length of A$, 
the computer goes to 2150 Y=Y+1, and at 2160 NEXT Q it 
is: sent back to line 2050 FOR Q=1 TO 10, and goes right 
through the whole procedure again for the next scrambled 
word; but this time placing it on a line lower down the screen. 

If you have followed the explanation given up to now it 
should be clear that the elimination of lines 2050 and 2160 
would prevent more than one anagram being printed, as 
mentioned before. Incidentally, now that you understand all 
the complex sequences required to print one anagram, and 
then watch the speed with which the Amstrad produces ten 
of them, you will have a much greater respect for the speed 
of Locomotive BASIC as used by the Amstrad. 

When all ten anagrams are printed the computer goes on to 
line 2170, which is a line to erase the request for a word at the 
screen bottom (notice how SPC(30) is used to do this), and 
then returns to the line after GOSUB 2000; to line 1060. 

There you are asked (in a flashing red colour) if you want 
to have another go. This flashing red colour was arranged in 
line 40, where INK 3 has been made to alternate between 
red and the background colour by adding the background 
colour after a comma; INK 3,6,23. Erase the second comma 
and the 23 from the end of line 40, and the question will then 
be plain red. 

If the answer to the flashing question is Y (yes) then at 
1110 the screen is cleared, and the program is RUN again. 
There are other ways of doing this should this question be 
asked in a different program. Then line 1110 could be: 
FOR Y=8 TO 17:X=13:LOCATE X,Y:PRINT SPC(22): 
NEXT Y:LOCATE 2,22:PRINT SPC(30):GOTO 1030. This 
would be useful in a game where scores were being kept 
from game to game, but the PRINT SPC(?) statements 
would, of course, have to be located at different places. If 
N (no) is answered then the screen is cleared, instructions 
given to print “Thank you”, and the game ends. 

This short program has a number of purposes: first is the 
pattern in which the program is laid out; with separate sections, 
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each headed with REM statements to explain what is held in 
each section, and to demonstrate the GOSUB/RETURN 
routine. 

Secondly, to explain the principles involved in using 
‘Strings’ of letters or words, and in manipulating them. This 
is one of the most important Basic functions, and a know- 
ledge of it is essential for most word games and manipulations. 

Thirdly, to provide a small section that can be extracted 
for use in other programs. Following the program at this 
chapter end are 9 extra lines: 5000 to 5080. They have been 
taken from the main program, and are lines 1040 (with a 
slight alteration), and lines-2070 to 2140. 

If, when these nine lines have been entered, you RUN 
5000, a question will appear on the screen: “Enter a word”, 
When this is entered a single anagram of your word will be 
printed. The program is complete in those nine lines, and 
with suitable alterations could be used anywhere. If those 
extra lines are saved to tape as an extra to the main program, 
they will not affect its functioning at all. 
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Chapter Two 
MOVE A LETTER 


In this chapter is a program based on the shuffling routine 
used in Chapter One. It is the simple game of letters arranged 
in a square, completely out of order, which you have to move 
one by one into alphabetical order. There is one blank space, 
but instead of the usual four by four arrangement, this is a 
game played with five by five, employing 24 letters and a 
space. When you have entered it, and you try your hand at 
re-arranging the letters, you will find that it takes a great 
deal of time and patience. Also, there is an unkind line 
below the square which registers how many moves you have 
made. Don’t be surprised if your first try runs you well 
into double figures; it takes many hundreds to finish the 
game — if you ever do. The main aim of the program is to 
show you how a game is constructed. 

The layout of the screen display is fairly straightforward, 
but if you are designing one for a program of your own it is 
essential to use a Plotting Board on which to draw it first. 
The one I use is of Indian ink on a sheet of white Formica, 
but a stout sheet of cardboard would do. Make the sheet 
about 12 x 8% inches, and on that draw a pattern of 
squares: 41 lines horizontally, and 26 lines vertically. Start 
the lines one inch from the edge, and separate the lines by a 
quarter inch. I work from the top edge and the left-hand 
edge when measuring and marking. The pattern of squares 
thus drawn will occupy 10 x 6% inches. 

When this is drawn (in fairly black ink) start entering the 
X,Y numbers: X (for text of all sorts) along the top, and Y 
(for text) down the left-hand side (1 to 25 downwards), 
Make sure that the numbers (1,2,3 etc.) are opposite the 
space between the lines — not on the line ends. This is 
important, for letters and numbers fall into the squares — not 
on the lines. 

Having completed the X,Y text numbers (used for 
LOCATE), the next task is the pixel numbers used by 
ORIGIN and MOVE. These run along the bottom edge (X, 
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left to right), and up the right-hand side (Y, bottom to top). 
These numbers must be at the line ends (not spaces), and rise 
in steps of 16: 0, 16, 32, 48, 64 and so on to 640 along the 
bottom, and the same numbers from bottom to top (to 400) 
up the right-hand side. When using the board you will have to 
estimate any numbers between those written for more 
detailed drawing. If this is your main interest then I recom- 
mend a board twice as big each way, with double the number 
of lines numbered in steps of 8 for graphics. Of course the 
text numbers at the top and left-hand side would then have 
to be carefully positioned on every other line end. Think that 
over. 

When this board is finished, and the ink dry, obtain some 
thin sheets of paper (through which the lines will show) to 
lay over the board, and on which your rough layouts can be 
pencilled in. With an outfit like this designing a program lay- 
out is easy. For this present program you only have to copy 
down the listing at this chapter end, but I will describe the 
reasoning behind the layout as we progress. 

There are six sections in this program: the first being the 
initialising of INK colours and a GOSUB 3000. In section 
3000 is the screen layout, placed at the program end for 
convenience. It can be altered to suit yourself. After the 
title: MOVE A LETTER, come some instructions (down the 
right-hand side) followed by a small block of letters to illus- 
trate what you will be aiming at in the game. 

Next comes the line locating where the moves are to be 
shown, and following this is the actual board (or box) in 
which the game is played. I used my plotting board to plan 
all this first, so it was easy then to place the commands and 
locations as I wrote the program. However, the design of 
the board did take some time, and I shall explain the think- 
ing behind it. 

A close block of 24 letters and a space could have been 
used quite easily, but I felt it was better to space out the 
letters a little so that a framework of lines could be used to 
contain them. Putting a letter at every other space left an 
empty text space between each letter without any risk of 
erasure as letters were moved. Similarly, a border was drawn 
around the block to enhance its appearance. The whole thing 
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then occupied a block of fourteen text spaces each way. 

Lines 3070 to 3160 were used to draw the border, the lines 
enclosing the 25 squares, and the location numbers at the top 
and sides. To draw the lines enclosing the 25 squares a tidy 
formula has been used, contained in lines 3110 to 3140. Six 
lines were required each way, each separated by 32 pixels. 
The method used here makes Q equal to 1 TO 6, and then in 
the ORIGIN statement uses 32 times Q (32 times 1; 32 times 
2; etc.), plus 184 (the pixel at which to start. This is equiva- 
lent to using a FOR/NEXT loop of: FOR X=216 TO 376 
STEP 32, but is more convenient, for lines are drawn both 
ways with one loop. That little routine (lines 3110 to 
3140) is worth copying out, and using whenever you have to 
draw crossed lines of equal spacing and number. 

The rest of the lines in section 3000 are straightforward. 
In line 3180 a dark line is drawn between border and screen 
all around, for it makes the whole layout: tidier. It is only 
ornamental. 3190 RETURN sends the computer back to the 
lines after GOSUB 3000, to 500. 

Here the shuffle formula from the previous game is used, 
with some slight alterations. Line 530 makes A$ equal to 24 
letters of the alphabet plus a space, for in this game A$ is 
fixed. The space has been placed among the letters, but could 
have been at the end or beginning. It is not so likely to be 
omitted during the entering of the listing in its present place. 
So far as the computer is concerned the space is just one more 
character to be entered when it is selected by R. 

540 DIM J$(5,5) starts the sequence of locating the chosen 
letters in the spaces provided. 550 and 560 establish the 
number in each row and column. 570 to 600 were explained 
in the previous chapter, and 610 is the LOCATE and PRINT 
procedure. 2 times X (which is 1 TO.5) means 2 TO 10 
STEP 2, and plus 13 means starting at column 13; so in 
effect that X part of LOCATE means 15 TO 23 STEP 2. 
Go over that again until it is perfectly clear. 

If it is not clear then remember that you are more intelli- 
gent than a computer, but you may not be thinking logically. 
The computer does not think, but it reacts to signals that 
are sent to it in the most logical way possible. It reads the 
messages sent to it quite literally; we are inclined to allow 


12 


extraneous thoughts to interfere with our logic. 

The Y part of the LOCATE section is dealt with similarly: 
it means 8 TO 16 STEP 2, using that same reasoning: 2 times 
Y+6. PRINT JS$(Y,X) ensures that the computer uses that 
reasoning when printing. 

Line 620 is exactly as it was in the previous game, and gets 
rid of the selected letter (from A$) on each pass of the loop. 
That brings up another point: the positioning of the two Y 
and X loops. They are placed with the Y loop outside the 
X loop so that the letters are printed left to right in the top 
row, left to right in the 2nd row, and onward. If the X was 
outside the Y they would be printed down the first column, 
down the second, and so on. This is because the inner of the 
two loops is always run through completely before going to 
the second pass of the outer loop. 

The computer then moves on directly to the game section 
at 1000, where it is necessary for four INPUT entries to be 
made. You must enter the letter you wish to move; its 
position (before the move) (top number and side number); 
and whether it is to move left (L), right (R), up (U), or down 
(D). This involves a decision about which way to program the 
entries: the four entries can be made separately (with a single 
key-press each); or they can be made as a four-item INPUT 
followed by ENTER. In the first example it is easy to make a 
mistake, or forget what the fourth entry should be. In the 
second example it is possible to check, and to alter if neces- 
sary, any item before pressing ENTER, so this second method 
was chosen. 

This composite method of INPUT entry is very convenient, 
and not used as often as it might be. Notice the manner in 
which the INPUT statement in the program is entered, line 
1030. The location; then the Print statement started with 
INPUT instead of PRINT; the statement itself; a semi-colon 
(;); and four variables separated by commas. The statement 
asks for LET. (the letter to be moved); top no. side no. 
(present location); and then a letter to indicate which way you 
want it to move. Take care to use the forms of punctuation 
that are used in the listing — which is taken from a working 
program. 

Because the first request is for a letter, its variable, Z$, 
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must be a string. The second and third requests are for 
numbers, so they can have single variables (X & Y). The 
fourth item is a letter again, so this must be a string (KS is 
chosen in this instance). These must be separated by commas, 
and the ENTER key is only pressed when all four are entered, 
and have been checked. This makes it easier to play, for there 
is only one Enter (although of four items) for each move. 

Immediately the ENTER key is pressed the computer 
adjusts its variables memory to store those four values, and 
they remain in memory until altered. Line 1040 GOSUB 
2000 sends the computer to the conversions, where it learns 
that X, and then Y have taken on new values. It is 
RETURNed in line 2130, to 1050, where, at the new X,Y 
numbers it prints a space (to erase the letter to be moved). 

At once it goes to the next line, 1060 GOSUB 2500, and 
at 2530 onward finds that K$ has now altered the value of 
X (or Y). 2570 sends it back to 1070, where it locates the 
new X,Y position, and there prints Z$ (which was the first 
of the letters ENTERed). The move has been made. Line 
1080 erases the original INPUT question (with SPC(35)); 
line 1090 adds one to the ‘moves’ score, and prints it in its 
proper place; and line 1100 directs the computer back to 1030 
to the INPUT once again. 

As mentioned at the beginning of this chapter, this game 
takes so long to finish that it requires endless patience. If you 
wish to make it shorter you can alter it to 4 x 4 letters, instead 
of 5 x 5; it merely requires some alterations to the shuffle 
letter routine. At line 530 erase all letters after 0 (remove P 
to X). In line 540 make DIM J$(5,5) into (4,4). At lines 550 
and 560 alter lines 1 TO 5 into 1 TO 4. The game will then 
play in the rows and columns | to 4, leaving row 5 and column 
5 blank. 

‘To make the game completely 4 x 4 would entail some 
major alteration to the screen section in many lines, but if you 
wish to do that you must work out the changes yourself. With 
the knowledge you have now gained that should be easy, but 
do retain a copy of the 5 x 5 game on tape first. The lines 
requiring any .change would be 3050 and 3070 to 3160. 

Sub-routines that can be extracted from this program to 
use in your own programs are: the one mentioned earlier 
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(lines 3110 to 3140 for printing a square of lines); lines 530 
to 640 (to produce a shuffle of letters and print them at 
separated places in a square pattern); and lines 1030 to 1070 
(for an INPUT including more than one item). 

Other matters to note carefully are the way in which letters 
or words must have a string variable, while numbers have a 
letter only (not a string); the use of double inverted commas 
(lines 2530 to 2560) for the subject of strings, and of no 
inverted commas (lines 2030 to 2120) for non-string variables. 

Note also the use in lines 2530 to 2560 of upper and lower 
case letters in the IF statements, for this avoids errors. Note 
that in line 1070 the print statement is PRINT UPPERS$(Z$) 
in order to cover the inadvertent use of lower case letters when 
entering. All these things-to-note are an essential part of 
programming. 

This latter is a potent cause of errors. I will give an 
example. On many occasions when entering a taped program 
that had previously worked perfectly I found it would not 
work, After much searching I then found I was using the 
computer in lower case mode, instead of CAPS MODE, and 
that the lower case letters would not trigger the actions I 
wanted. It must be remembered that the computer makes a 
proper distinction between lower and upper case letters; they 
have totally different code numbers. Therefore this must be 
guarded against, always. 
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S4H CIM J8€5,59 
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3129 ORIGIN 22k0+194,136:0RAW 4G, 
S138 ORIGIH 216.184+324¢0: DRAW 16 
3144 HEAT 
2136 LOCATE 15.6:PRIHT "1 2 3 4 5" 
2160 LOCATE 13.9:FRINT "1":LOCATE le 
/1@6:°PRIWT "2" :LOCATE 13.12:PRINT "3" 
‘LOCATE 13,14:FRIMT "4":LOCATE 13,16 
‘PRINT "5" 
S178 LOCATE 2,.5:PRINT "EHTER 4": PRIM 
T " [TENS:":FRINT:PRIHT " Letter .": 
FRIHT " ToP Ho .":FRIHT " Side Ho ." 
‘PRINT " Then" :FRINT " Loor Ro oor": FR 
INT" Wor BD": PRIHT:PRIHT " Like this 
“CPRIHT "  Wo3.4.0" 
31°73 PRIHT:FRIMT "  HOTE" : PRINT: PRIM 
T " COMMAS" 
3128 ORIGIN &. 8: 0RAW 639,8:0RAMR &. 3 
99: DRAWR -639. 6: DRAWR 6,-399 
2198 RETURM 
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Chapter Three 
ALPHABETICAL WORD SORT 


This short program has been designed to show a number of 
different functions; among them the use of WINDOW to 
separate off a portion of the printed text, so that a list of 
words can be entered, and will SCROLL without affecting 
other words on that screen. It is a program that sorts words 
into alphabetical order, and will sort numerals also, pro- 
vided they are of even length: 364, 027, 002, 244, etc., or 
29, 36, 08, 13, 02, etc. 

The words are entered one after the other in response to 
the INPUT, but the program can be altered easily to a 
program in which the words are put into a DATA statement 
to be READ. This is the main purpose of this chapter, to 
demonstrate the changing of a program, but first we will 
deal with the original. 

After the initialisation of INKs and BORDER comes the 
title; a couple of words of instruction, and a thick border 
around the screen. Then, at line 100, is ‘WINDOW#1,2,39,7, 
24’ which defines the area of a window excluding the title 
and border: X equals 2 TO 39 and Y equals 7 TO 24. 

If, after the program is entered and taped, you type 
LIST#1, and ENTER, then the listing will appear and scroll 
inside that border without affecting it in any way. Similarly, 
a part of the program will be printed only in that area. This 
ensures that if you decide to enter more than 15 words (the 
limit defined at present) they will scroll in that area. But 
more of that later. 

Lines 500 to 630 are used to enter the words you wish to 
arrange in alphabetical order. A is made to equal —1, so that 
the first word entered will be number 1. Line 540 defines the 
list of words to be 15: ‘DIM B$(15)’; but this number can be 
altered to suit your own convenience — provided you also 
alter line 620 (IF A=15) in the same way. A$=“*” is there 
to establish A$ as a string variable. Then a WHILE/WEND 
loop starts. This is similar to a FOR/NEXT loop in that it 
makes whatever is between WHILE and WEND repeat, but 
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different in that it is not for a fixed number of times. In this 
case it repeats until ‘nothing’ is entered: WHILE A$ (is not 
equal to) ‘“*”’. 

The INPUT (into WINDOW 1) is given the variable A$ (line 
580). In line 590 is an IF statement to ensure that if the 
number of words entered is less than 15 then a second ENTER 
will move the computer into the SORT routine. 600 A=A+1 
is a line to make A increase in number as each word is entered. 
610 B$(A)=A$ means that B$ (the list of words) (A) (the 
number of words) is equal to A$ (the INPUT). 

This section has been described in detail because it will be 
one of those to be altered when we wish to make a different 
program: one that will accept words from DATA, rather than 
from INPUT. 

The SORTing section (1000-1150) is a standard one, and 
takes B$ (from the previous section) to represent the list of 
words. Because the list is complete, and its number known 
(A), the next line is the beginning of a FOR/NEXT loop: 
FOR B=0 TO A-1. This is the outside one of three FOR/ 
NEXT loops in this section (B, D, and E): D and E being 
separated (not nested) but both inside B, It is in the three 
loops combined that the sorting occurs, and it should be 
studied thoroughly until completely understood. It entails 
some mind-boggling thinking while following it through, but 
it is worth it. At the end of that section B$(B) holds the 
list of words alphabetically in its memory. 

In section four (1500—1600) is the printing section. This 
also will be altered for the second program, but only for its 
X location, because in section 2 the INPUTs are printed down 
the left-hand side of the screen; in section 4 they are started 
at X=20 (to the right). Also, they are printed in a different 
colour. 

Lines 1530 and 1540 establish the X,Y numbers, while the 
change of INK colour is in 1550. Note the way it is done: 
1550 PEN#1,2. The HASH sign (#) must be used on each 
occasion that PEN, LOCATE, and PRINT are used for it to 
operate correctly, and must be followed by a comma as shown 
in the listing. 

A FOR/NEXT loop is then started: FOR B=0 TO A in line 
1560. The first word is printed (blue) in line 1570. Notice 


21 


LOCATE#1 and PRINT#1. Then there is B$(B) (which is 
0 TO A as in section 3) plus CHR$(7). CHRS$(7) is a BEEP, 
so that when added as here a BEEP is sounded each time a 
word is entered. This is a most useful command for games, 
and while not necessary here, it does add something to the 
actual production of the list. 

In line 1580 X is equal to 20; Y is made equal to Yt+1; 
and a pause is arranged with 1 to 200. In 1590 is NEXT B, 
so that the next word is printed. When the list has been 
completed (B=0 TO A is finished) the computer goes on to 
PEN#1,1 (so that the future printing in the window is PEN 1), 
and in 1600 goes to 1600. This last line obviates any message 
on the screen, and ESC has to be used to Break. 

This small program is excellent for occasions when it is 
convenient to enter the words to be shuffled one at a time, 
but when a longer list is needed, and it is possible to forget 
what has been entered, a READ/DATA method of entry is 
better. We will alter this program to do just that, but make 
sure first that it is safely put on tape just as it stands. 

Then, on the computer, lines 90, 530 to 630, and 1030 
to 1150 can be deleted; 90 because the instructions in that 
line are no longer relevant; 530 to 630 because we shall 
replace them with entries to READ DATA from lines at the 
end; and 1030 to 1150 because we shall use a slightly differ- 
ent sorting technique this time. It is important to know that 
there are more ways than one to sort words. 

When these lines have been deleted then use RENUM to 
start each section with new numbers as follows: what was 
line 10 must now be 3000, so type in directly: RENUM 
3000,10,10 and ENTER. In case you have not yet realised 
all the renumbering facilities on the Amstrad CPC464, 664 
or 6128, here are some details: Of the three numbers after 
RENUM, the first is the new line number; the second is the 
old number from which you want it to start; and the third 
is the spacing (I normally use 10 for this). All RENUMber- 
ing is from the second number to the end of the program. 
To RENUMber the different sections in this new program will 
entail four RENUM orders: RENUM 3000,10,10 ENTER; 
LIST to see it is correct; the next section you want to start 
at 3500, but it is now at 3090, so: RENUM 3500,3090,10 
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ENTER; LIST; the section you want at 4000 is now at 3530, 
so: RENUM 4000,3530,10 ENTER; LIST; the section you 
want at 4500 is now at 4030, so: RENUM 4500,4030,10 
ENTER; and LIST. The new DATA section will be at 5000. 

The complete listing for this new program is at this chapter 
end, but RENUM will have saved you many entries. Line 
3080 is now altered a little: the WINDOW can now be one 
line higher, thus giving more room for words. The new 
routine for entering words starts at 3530 with DIM K$(55). 
This number (55) can be altered, but must always be more 
than the number of words that are stored in the DATA lines. 

Line 3540 READ N: this is a number variable, and applies 
to the number of words to be sorted. It must be exactly 
correct, and words are picked up (READ) from line 5030 
DATA 25 (at present). Line 3550 FOR I=1 TO N takes its 
number from N, and the FOR/NEXT loop operates just as 
many times as the number in line 5030. Make sure you 
really understand this, for many errors can crop up if it is 
ignored, 

The next line: 3560 READ K$(I) is a string variable, and 
can READ words from the DATA at line 5040 onward — up 
to the number of N (in 5030). Line 3570 NEXT I keeps its 
repeating until the number is reached, and then goes to the 
next section. 

It will be noticed that I is used as a variable here. All the 
other variables have been changed also, because this program 
is to be held in memory as well as the first program (we will 
MERGE them later), and it is best not to confuse the 
memory with similar variables in two programs at the same 
time. 

Those five lines (3530-3570) will extract the words for 
shuffling, but they must have some DATA from which to do 
this. Section 5000 contains just three lines, but any number 
could be added, which is why the DATA is put at the end. 
Whatever number of words are included must be accurately 
put into line 5030 in place of the present 25. I have used 
simple Christian names in the DATA for this demonstration, 
but they could be anything. The comma is the functional 
divider between words (items or blocks of words) in every 
case, but there is no comma between DATA and the first 
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word. If you wanted to use a list of combined Christian and 
Surnames, like Robinson, Bill; or Jones, Richard, you must 
not put a comma between the Surname and Christian name, as 
is the usual custom, because the computer would then separ- 
ate them as distinct pieces of DATA. The usual way is to leave 
a space, as I have done for one demonstration pair of words. 
You might also use a full stop (. ). 

With the section at 5000 entered you can return to 4000, 
for the SORTing. The first line prints the word SORTING 
outside the WINDOW: notice that LOCATE and PRINT do 
not have the hash sign following them. This time the actual 
SORT is done with two FOR/NEXT loops, an I inside an § 
loop. The lines’ 4070—4100 do the actual work, and are 
relatively easy to follow. Make sure you understand how 
this section works before you proceed. 

The fourth section at 4500 deals with the printing, but 
this time X is equal to 2, bringing the list to the left of the 
screen. Y equals 1, so the words will be started at the top 
of the WINDOW, using PEN#1,2 (line 4550) for colour. 
LOCATE and PRINT are on the same line, and are each 
followed by the hash sign, and at the end is the BEEP. Line 
4580 sets Y to equal Y+1, so that the next word is printed 
one line lower. FOR T=1 TO 200 causes a slight pause, and 
4590 sends the program back to line 4560 until all of I has 
been used in the FOR/NEXT loop. Then the WINDOW PEN 
is returned to 1 again. Line 4600 prevents a Break sign 
marring the screen. 

Programmers who have a printer, and who wish to use this 
second program for a list or index make, can add a REM to 
line 4570, and then add another line: 4575 PRINT#8,K$(1). 
When RUN there will be the usual pause while the computer 
does the SORTing, and then the list is printed on the printer. 

It is easy to make an address or/and telephone list: 
ROBINSON DAVID.3 MEMORY ST.NANTWICH(467352) 
could be such an entry. Remember that spaces and full 
stops (and brackets) can be used within an entry, but not a 
comma. If you use more letters than the line can hold on the 
screen, the computer will use the next line also, but on the 
printer more characters can be used without going onto 
another line. I use the DMP1 printer, and find that the 
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addition of WIDTH 80 before running the index program does 
the trick. 

RUN 3000, and ENTER will produce the second program, 
while RUN and enter produce the first. In these two programs 
are many routines to use elsewhere: WINDOW in lines 100 
and 3080 (and examples of using them later in each program); 
an INPUT routine using WHILE/WEND (530—630); a READ/ 
DATA routine (lines 3530—3570 coupled with lines 5030 
onward); two distinct sorting methods (1030-1150 and 
4030—4140); and a routine for printing a list of words from 
memory (with a BEEP) (lines 1530—1600 and 4530—4600). 
These are all routines that can be extracted, and (when 
adapted) used for other programs. 
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FOR I=1 TO H-5 
IF BSC To¢=kee +19 THEM 4128 
BS=K SC IY 
ESC TI p=ko 14+1 9 
EC [+1 :=$ 
f=1 
$126 HEXT I 
4136 IF M=4 THEH 4520 
41449 HET 5 
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4500 FEM EEESEEEESEREREREESEEREREEE 
4519 REM #444 PRINTING WORDS d4b4§ 
4520 REM EREEREEEFRELREELERERKAEARELK 
$539 H=2Z 

454 f=] 

$359 PEM #1.2 

$260 FOR T=1 To H 

$378 LOCATE #1,8%.7:FRIHT #1.E5¢ [3340 
HES FD 

$220 Mea: /s'/+1:F0R T=1 TO 266:HExXT T 
e HEAT I:PEW #1.1 

Go Td | S600 

1 REM EERKEEERALESEEES 


a) ae 
Sy 

rb 
iS 


SOI REM ##EEX DATA £444% 
SASH REM RRKRREAKKE 
SASH CATA 25 


fad CATA WIOHH. HARRY: HERBERT. JOSEPH. 
JAMES. CHARLES. JACK. HEMR'?. ADAM. BILL.R 
OBERT. FRE. VOR. JOSHUA. LARRY 

Sasa CATA SAMUEL: THOMAS, GEQRIGE. PAUL: 
BEHJAMIM. RALPH. HICHOLAS. JEHEIMSOM PE 
TER. CAHIEL. CAYIE 
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Chapter Four 
LETTER EATER & HOW MANY WORDS 


The program LETTER EATER places the letters of the 
alphabet in randomly chosen places, and then provides a ball 
which is moved around the screen to erase the letters one by 
one in alphabetical order. It is very simple, but the writing of 
it involved many problems that can crop up in other programs, 
so a description of those problems, and how they were 
tackled, should help the reader when devising games of his 
own. 

It has been written with sections, but each section follows 
consecutively, so after the initialisation of INKs and the 
BORDER the screen is drawn. Line 130 is the title, and 
140—150 draw a display box to contain the game; 160 puts a 
dark line between border and screen, and 170 gives some 
instructions. Line 180 makes a small box to contain the 
score. 

The third section (200 to 370) places the letters in 
position. These are at random positions, and in random 
colours. Placing them should have been a simple problem, 
but difficulties arose, and the first solution was found to be 
unsuitable. Just four lines were used for this first solution: 


230 FOR A=65 TO 90 

240 C=INT(RND*3)+1 

250 X=INT(RND*34)+1:Y=INT(RND*15)+1 

260 PEN C:LOCATE X+3,Y+3:PRINT CHRS$(A): 
NEXT A:PEN 1 


In line 230 (65 to 90) are the CHR$ numbers of A to Z. 
Line 240 makes C equal to 1, 2, or 3, and is later used for 
the PEN number. In line 250 X is made equal to a randomly 
chosen number between 1 and 34 (the number of X spaces 
available), while Y is equal to 15 randomly chosen numbers. 

Line 260: after PEN C (3 colours), LOCATE X+3,Y+3 
locates the position on the screen, and then comes PRINT 
CHR§$(A) followed by NEXT A. CHRS(A) is first CHR$(65), 
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and on subsequent passes is CHR$(66), (67), (68), and so on 
to (90). 

These four lines appeared to do the job at first, but occa- 
sionally it was noticed that some letters were missing. The 
explanation was this: On going back through line 250 a 
previously used X,Y number was being chosen, and one letter 
was printing on top of another, thereby erasing the previous 
letter. Sometimes two or three letters were so erased, and 
that wouldn’t do at all. 

In that 4-line version the X and Y numbers were random, 
and the letters were consecutive from A to Z. It was decided 
that X should be a continuous progress across the screen, and 
the letters and Y numbers would be randomized. This was 
done so that the letters could be made into a string, for then 
the normal way of extracting a previously used letter (to 
prevent its second use) could be used. This is in the present 
line 350. There are now 15 lines in this section, but it works 
perfectly. It is worth studying, for it is typical of program- 
ming problems that can crop up, so we will examine it line by 
line. 

Line 230 makes A$ equal to A to Z. In 240 ‘X=3’ allows 
the area used for letters to start at 3. In line 250 a FOR/NEXT 
loop starts, and continues until the LENgth of A$ (26 letters) 
is used up. Line 260 gives C the random value of 1, 2, or 3 
(for the PEN colours). Line 270 T=INT(RND*1.5)+1 needs a 
little more explanation. There are 36 possible X positions in 
the area used, but only 26 letters, so if line 330 were X=X+1 
then all the letters would be on the left-hand side of the area. 
I wished to ensure that the move from one X position to the 
next X position was just a little more than one space (that is: 
occasionally one space, and occasionally 2 spaces). Lines 270 
and 330 do just that. 

Line 280 makes L the LENgth of A$; line 290 makes R 
the variable number chosen to select one of the letters; line 
300 makes J$ equal to the letter thus randomly chosen, and 
line 320 prints it — at the X number chosen earlier, and the Y 
position chosen randomly in line 310 (where there are 17 
available) in either of 3 colours (PEN C). There is a line (340) 
to see that X cannot go too far to the right, and then we come 
to 350, which is mentioned earlier. 
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350 A$=LEFT$(A$,R—1)+RIGHTS(A$,L—R) has been 
explained at length in Chapter One, so if you missed that, go 
back and read it now. Used in a similar position (and with 
relevant string variables).it is a standard way of extracting a 
character from a string. 360 is NEXT P, and 370 sends the 
PEN colour back to 1. That second section: PLACE 
LETTERS, is complete on its own, and is worth keeping 
handy. There is a way of doing this easily if you have a 
Printer, otherwise you should write it down in a notebook 
(few of us have: minds that can carry all such details in 
memory). Using a printer I first enter directly: PRINT#8, 
“PLACE RANDOM LETTERS, RANDOM COLOURS, 
RANDOM PLACES” and ENTER. Then use: LIST 230—370 
#8 and ENTER. This puts the item on paper for you, and a 
collection of such scraps can be invaluable. 

The next section (at 400) is used to move the little ball 
that erases the letters. The area within which it can move is: 
X, 3 to 38, and Y, 3 to 20 (that is inside the border). Lines 
430, and 490 to 520, confine its movements to that area. 
Notice how it is done with ‘less-than’ or ‘more-than’ signs with 
IF. Line 530 CALL &BD19 is there to make things move 
smoothly. 

CHR$(231) is the ball; CHR$(32) is a space. The moves 
are made with lines 450-480. The right-pointing arrow is 
number 1, the left is 8, down is 2, and up is 0. We will take 
just one move: Press right arrow, and line 450 sends the 
computer to 560, where, at X,Y, a space is printed. Then X 
is made to equal X+1, and (ignoring the Z moves for the 
moment) the computer returns to the line after 450, and 
traverses down to 540, where, at the new X,Y number, the 
ball is re-printed. 

Notice the pause (FOR Q=1 TO 50:NEXT Q) in line 540. 
This ensures that the printed ball is in view longer than the 
space. Lines 450 to 480 all work the same, with the computer 
swopping from one to the other at a furious pace. 

Now the Z. This is there merely to count the number of 
moves it takes to erase the whole alphabet. Z is first set to 0 
(line 430) to establish it as a variable. Then at each move Z 
is increased by 1, and printed in the small rectangle. This is a 
simple way of scoring, and sufficient for this game. 
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If you want to save this movement routine on the Printer, 
first remove Z=0 from line 430, and the Z sections from lines 
560 to 590 (Z=Z+1:LOCATE 32,23:PRINT Z). Remember to 
leave the RETURN at the end of each of the 4 lines. The 
routine could then be titled ‘MOVEMENT IN ALL 
DIRECTIONS’. 

That was a small game, and one not likely to hold your 
interest for long. The next game: HOW MANY WORDS, is 
very different. The program is short (but can be lengthened), 
and is a mind-boggling game, because from less than 30 
letters (carefully arranged) as many as 27 words can be made, 
using only sequences of consecutive letters. You will under- 
stand this better when you have entered and run this 
program (it is at the chapter end). 

After the introductory lines detailing the colours, comes 
GOSUB 3000 where the scene is drawn. In this the title, 
some instructions, and four rectangles are drawn, and then 
the computer returns to GOSUB 2000, where a simple random 
choice is made of any of three items. Note the way this is 
done in lines 2030 to 2060: just four lines. Using 
RANDOMIZE TIME ensures a different starting point for 
each random choice, but because in this program only three 
choices are given (at present) there are occasional repeats of 
the same choice. R is made to equal either 1, 2, or 3. Then 
three lines tell the computer which line to go to in either case. 
I will explain the increase to a greater number than 3 later on. 

Assuming that R=1, then the computer goes to 2200, 
where A$ is made equal to a list of words. The making up of 
this list of words had better be explained here, for it involves 
quite a lot of thinking, and some help from a dictionary. 

A simple word is chosen: CANAL in this instance; and 
then, using one or more of that word’s last letters, a second 
word is chosen. In this case it was ALLOW, so we now have 
CANALLOW. LOWEST was the next word chosen, giving 
CANALLOWEST. Using just that much it is now possible to 
make from it eleven words: CAN, AN, CANAL, ANAL, 
ALL, ALLOW, LOW, OWE, WE, WEST, LOWEST: eleven 
words from eleven letters is not bad. 

Now A$ actually includes (in this case) 28 letters, and I 
have found it contains 27 words. This is the basis of the 
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television game ‘NOW YOU SEE IT’, although that game 
includes innumerable variations on that theme. Perhaps later, 
when you have absorbed the information in this book, you 
can make up a new game of your own, based on one or more 
of those variations. 

To return to this program. A$ (in the case of R=1) equals 
28 letters. Now to allow for a form of scoring, we wish to 
know how many words A$ contains. So, after line 2210, 
which prints A$ in the rectangle provided, we form another 
variable (AAA$) at line 2220. This AAA$ contains all the 
words I have been able to make from A$, separated by the 
backward-slope mark (above CTRL). This is chosen instead 
of a comma because in this context it is accepted by the 
computer as just a character. 

Line 2230 is GOSUB 2800, and at that line is a sequence 
to count the number of words in AAA$. This is done by 
counting the backward-slopes, and adding 1 during a 
FOR/NEXT loop of M (the LENgth of AAA$). 2840 is the 
RETURN (to 2230), which itself is a RETURN to 1030. The 
computer will now have in memory AAA$, A$, and A., as 
well as other variables. 

At 1030 (the Game section) with 1040 is an INPUT 
where you type in the words you can make from A$. This 
new INPUT is AA$. This facility of the Amstrad (of being 
able to differentiate between A, A$, AA$, and AAAS) is most 
useful in this case. The aim of the INPUT is to enter words 
(divided by a backslope so that they can be counted) and not 
use ENTER until you have made sure you have typed in every 
word you can see. 

When this is ENTERed line 1050 prints (in the small blue 
rectangle) the number of words you should haye entered (A). 
1060 GOSUB 1190 takes the length of your entry (at line 
1190) as L=LEN(AAS), and in the next three lines gives it the 
variable P, and returns it to 1070. There P is printed in the 
first of the red rectangles, and in 1080 the score is printed 
in the form P IN A (your entry and what you should have 
entered). Lines 1120 to 1160 offer you another go, by first 
erasing your entry, providing another INPUT (Y/N), and 
acting on that. 

It is a surprising fact that even though you have entered 
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the program, including the lines of words it is possible to 
find, when it comes to playing the game you may forget 
some — even though there are only three sets of words. 
Just imagine how difficult it would be if there were more sets. 
And that is your next task: to add more lists. There are four 
lines to each set: 2200—2230, 2240—2270, and 2280—2310, 
and there is plenty of room to add more (between 2310 and 
2800). However, you must also alter 2030 in the R=INT 
section, changing the 3 into whichever number you alter it to, 
and adding after line 2060 more lines of: ‘IF R= ’. Line 
spaces have been left for these additions. 

I have previously described how to form a list of words, 
so now start making some more of these sets; eventually the 
program could contain anything up to a dozen or more lines 
of words. If you like mind games you will get more fun out of 
enlarging this program than you will out of playing it. 

In ‘HOW MANY WORDS’ there are fewer separate 
routines to separate out for future use, but there are many 
uses of GOSUB (to separate out small routines) to serve as 
examples. Also note lines 2030—2060. This routine, to 
select a line randomly, can be extremely useful in many 
games, so is worth noting. Also, the two similar routines 
(lines 1190-1220 and 2800—2840) are well worth keeping 
on file. 


19 REM £ARERKAKEEEEEEEEREREAES 

26 REM ##£# EAT THE LETTERS +44 

SQ REM SKERAEEERAEREELEREREREES 

THK -@.26:1IHK 1,2:1HK 2.18: 1HK 3.6 
BORDER 15:PAPER 8:PEHM 1:CLS 

REM KEKKKEREEEEREREEES 

REM 44444 SCREEM #4444 

REM KX EKRE KEKE RARE REA 
LOCATE 2.2:PRINT STRIMGS¢ 12, CHRS 
32) 2i" LETTER- -EATER "GSTRIHGS¢ 12.0 
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i4o FOR ‘f=3 TO 2a: FOR H=2 To 33 STEP 
27: LOCATE. 4 f OPRIHT CHRS¢ 233 2 HEMT 

“HET 

154 LOCATE 2. 21:FRIHT STRINGS< 38. CHR 

$0 23805 

164 ORIGIN @. 4: DRAW 639.6.1: 

399: O0RAWF -639.6:0RAW 6,-S39 

1°6 LOCATE 2.23:FRIHT “Move BALL wit 

ho arrows. ":LOCATE 2.24: PRIHT "Erase 

letters alPhabetically." 

156 ORIGIH 438,24:0RAW 123,.8,3:0RAMR 
6,32: 0RAWR -123.6:0RAWR O,-32 

200 REM KEKERERREKEEEKERAKEEER 

Zig FEM ##%* PLACE LETTERS #4 

2c FEM £kKEERAEEERRREEREEEER 

2a AS="ABCDEFGHI JKLMHOPGR STUY YS" 

244 “4=3 

Zag FOR P=1 TO 26 

260 C=IHNTC RHO#S 941 


CRAWR 


274 T=IHTCRHDAL. Sat) 

230 L=LEH« Ags 2 

298 R=INTCRMOKL o+1 

304 J$=MIDSCAS.R, 19 

S18 Y=INTCORMDEL? +1 

324 FEM C:LOCATE #.'7+3:PRINT J% 
334 KSA+T 

S44 IF 4233 THEN 4=35 

bat | 


AS=LEFTS¢ AS. R-1 I+RIGHTS*CAS,L-R oO 
SEQ HEAT F 

ara FEW 1 

404 REM £EEKEEREAERERESSEEES 

416 REM #4244 MOVEMEMT #4444 

$20 REM FERRERS RERREREREEERS 

$26 ARa S35: 2=8 

446 WHILE 1 

$209 IF HOT IMKE’¢1>9. THEH GOSUE Sea 
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466 IF HOT INKE’¢S9 THEN GOSUE S?re@ 
479 IF HOT INKEY¢2)9 THEH GOSUB Sea 
$26 IF HOT IHKE?¢@3 THEM GOSUB Soy 
438 IF 4°03 THEM “=3 

THQ IF 4938 THEM “=33 

316 IF "<3 THEM Y=3 

324 IF ‘(326 THEM ‘’=2y 

238 CALL 46019 

249 LOCATE #. ‘7: PRINT CHRS*¢ 231%; > FOR 
GH=1 TO F6:HEXT 

228 WEMD 


LOCATE %.'?:PRINT CHR 32): aed: 


260 LOCATE #. ‘f+ PRINT CHRIS. 32 9: HSK +1 
Z=Z+1:LOCATE 32,.23:PRINT 2: sei 
or@ LOCATE 4. ‘f:FRIHT esas tea a 
2=2+1: LOCATE 32 123° PRINT “RETLPN 
pad 4 

z= 


S2+1:LOCATE 32,23:PRINT 2:RETURM 
2398 LOCATE #.'f: PRINT CHRS¢ 32 9: ='-1: 
e=Z+1:LOCATE 32.23:PRINT 2: RETURH 


REM FREEREEEEREREREEERE EEK EES 
28 REM FARE HOW MAM WORDS ARE 
oi REM ee ae 

4 THK a.2 ENR 1.3: THE (THK 3.6 
a BORDER 2 5: PAPER “o: PEN 1: CLS 

Ets) GOSUB 3500 

ra GOSUB 2ao8 

1600 REM FEREREERAEERKEREREEES 

1816 REM ##4#4% MAIN GAME $44kk 

1620 FEM KEREEEREEKEREAEREERES 

1430 LOCATE 3.13:FRIHT " EMTER WO 
ROS OIVIDED BY *\ " 

1444 PRIHT: IHPUT AAS 


aaa 


4 


5 
rat 
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195@ LOCATE 36,12:FRINT A 

1966 GOSUB 1139 

1476 LOCATE 17.15:PRIWT P 

1W36 LOCATE 31.15: PRINT Pi" IH" GAs 
1128 LOCATE 3.13:PRIMT SPCC 36 9: LOCAT 
E 1.20: PRINT SPCC390:PRINT SPOC399:P 
RIHT SPCC S99:FPRIHT SPCe 399 

1136 LOCATE 3.13:I1HPUT “ANOTHER Ge 


1146 IF 2$="" THEM 1140 
1158 IF ahah THEH CLS: RUM 


1164 IF 2$="H" THEN CLS 

1129 STOP 

1198 L=LEN¢ AAS > 

1269 F=1:FOR M=1 TOL 

1216 IF MICSC AAS. iM, 1 o=""." THEM F=P+1 
1226 HEAT M: RETURN 

SHA REM REKEKEERRKAEEEERERERLESE ES 
2918 REM £*k#kK LETTER STRINGS KEKEK 
2H20 REM KEKRKKAKKAKREEREELRAERERRER 
2438 RAMDOMIZE TIME: R=IMT* RHO43 o+1 
2649 IF R=1 THEM 2289 


wt 


LEX 


2950 IF R=2 THEH 2249 
IF R=3 THEW 2228 
AS= "CANALLOWEST IMEATTACKNOMLEDG 


Pac 
‘iT; 
iS 


LOCATE 4,.12:PRINT AS 

FAARAS=" CAHAL™.CAMAW™AMALALL™.ALL 
QWLOWEST*LOW.OWE*.WE*WEST*T IME*.ME™.ME 
ATEATAT™AT TACK. TACKACKMOWLEGGE KH 
QWLEOGE™KNOWHO™HOW™OML LEGGELEO-ED 
GE u 

2238 GOSUB 2306:RETLIRN 

2249 AS="BELOVEDUCATEGOR YEARS TERHICOT 
THE" 

2254 LOCATE 4.12:PRIHT AS 


bho he Mohs £ 
NE = 


ae ht 
a mi 
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2260 AAAS="BE™.LOVE-LOVED-.BELOVED-EDY 
CATE™.DUCAT.ATE*CATEGOR AT CAT EGO 
O..0R™.RE™. VER YEAST EAST-EASTERHAS*A 
2 TERH™.STERM™TERH™HICOTIME™COT™T IM" 
22°68 GOSUE 2oaa: RETURH 

arae AS="CAHHMOTW I THSTAMO IHGLEAHCESTR 
| iu 

2299 LOCATE 4.12:PRIHT AS 

2384 AARAS="(CAW™.AMAWAOMO-HOTCAMMOT 
“HOTHITHS TAH I HiT THSTAHD™WI TH. TAN 
CS TAO T HG-AAS. OM DMO DT MGLE* THE 
E».GLEAM™LEAM”AMAWCES T RAL 

2318 GOSUB 2e0a:RETURH 

e898 L=LEH" AAAS » 

S19 A=1:FOR M=1 TOL 

29 IF MIOS¢ AAAS. MM. 1 o="%" THEM A=A+ 


1 
ft 
G 


HEAT 4 

FETURH 

REM KEEEEEEKEEEEEEERERAEREEEEES 
REM $*##KK SCREEH DISPLAY FREE 
REM EEKELEEREEEEEREEREREEAELAS 
FEH S:LOCATE 3,2:FPRIMNT "* kk t 

OW MAWY WORDS & kK kK": PEM 1 

140 FEN 2:FRIWHT:PRIHT " EXAMPLE: 
AHA OO T contains: CAH. AM 
* GHIN, ANNO, HO. 407. CAMHMOT" «PEM 1 

3H50 PRIHT-" How many words can yo 

uo make using any consecutive 524 

uence of letters in the followin 

9 list of letters?" 

S669 FEH 2:FRIHT " bon’t use ENTER 
wrntil all words are entered" : FEM 


Mo MED a 
Oa th ee mf. 2 
WS 


Le hb fh Pe ee fea ha fF 


=, 


oe 


1 
2H78 ORIGIN 44, 2140 : DRAM 436.8, 2: DRAM 


BG. 32: 0RAWR. -4396,4-0R AWE B.-s2 
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oe ORIGIH S32, 280: 0RAW 38.8.2: CRAM 

32: CRAWR -28.4:CRAWR @,-32 

LOCATE 2.15:FRIHT “words enters 

"ORIGIN 232.152: DRAW 96.6.3: CRAP 
32: CR AWR -36,8:DRAWR B.-32 

3100 LOCATE 24,15:PRINT "SCORE: ": ORT 

GIN 472,152:0RAW 166.8,3:0RAWR 8,32: 

CRAP 160, 4: DRAMR A,-32 

3116 RETURH 


ose 
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fo 
wa 
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Chapter Five 
GUESS THE WORD 


A method of forming an anagram was given in Chapter One. 
In ‘this chapter is a simple game, GUESS THE WORD, using 
that anagram routine. In it you can enter any number of 
guesses at the word, and if you’re baffled, and ask for help, 
a letter, or letters, will be printed. While the program is 
simple the game is not, for each word among the 50 in 
DATA has nine or more letters, and in its anagram form gives 
no clue to its true nature. The full listing is at this chapter 
end. 

As well as being a demonstration of how to use anagrams 
in a game, this program illustrates well the principle of using 
WINDOW. With its help any number of guesses can be 
entered, and the list of words entered will scroll up without 
affecting the screen layout of other sections. When you 
reach that part of the program explanation make every 
effort to understand how it is used, for that facility of the 
Amstrad 464, 664 and 6128 is most useful. 

The format, or structure, of this program is straight- 
forward, with just four sections, each separated by REM 
titles. Lines 40 and 50 define the colours to be used in a 
formula that has become a habit of mine. The four INKs 
to be used (MODE 1) are always defined in line 40, and in 50 
is the BORDER colour, with PAPER and PEN followed by 
CLS, which in this position ensures that if any colour is 
changed in these two rows, then the use of RUN will pro- 
duce that colour. 

Then come two lines (60 and 70) that define the two 
WINDOWs used. The first is for the scoring (a small one on 
the right), and the second (on the left) reaches from near the 
title to the screen bottom for the entry of guesses. Notice 
how these WINDOWs are entered: with a comma after hash 1 
(or 2) (hash is the name given to #), and then the four 
numbers (separated by commas) that define the WINDOW 
areas. The first one is X, 22 to 40, and Y, 6 to 12;just seven 
lines that are 19 character spaces long. The second is X, 1 to 
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21, and Y, 4 to 25; 22 lines each 21 spaces long. Later we 
shall see how hash 1 and hash 2 are used in practice. You may 
have noticed that in hash 1, PEN 2 is used; take note of how 
this is entered, with the comma after hash 1. 

Lines 80 and 90 print the title and an arrow pointing to a 
box. In that box will appear the anagram. CHR$(243) is 
the arrow. Then come lines 100 to 130, each printing in hash 
1 (that is WINDOW 1). Line 100 is an example of how they 
should be entered: LOCATE(space)hash 1(comma)5(comma) 
1(colon)PRINT(space) hash 1(comma)(inverted-commas) 
SCORE(inverted-commas). Notice that it is essential to use 
hash and a comma in both LOCATE and PRINT commands. 
Note also that the LOCATE numbers have no reference to the 
ordinary X,Y numbers. Each WINDOW has its own numbers: 
for hash 1 they are X, 1 to 19, Y, 1 to 7. This SCORE is 
printed at 5,1 (in terms of that WINDOW’s numbers). This is a 
point often missed, so study it until you have grasped it; it 
makes WINDOWS easy. Lines 140—150 print some instruc- 
tions. 

The section at 200 to 480 deals with the moves in the game, 
but it starts with GOSUB 600, section 3, so we will go to that 
one first. This has lines 600 to 790, but it uses section 4 as 
well, lines 800 to 870. 

Lines 630 to 790 use a simple anagram-making routine, but 
unlike the anagram in Chapter One, it takes (READS) its 
word from a list of DATA, instead of from an INPUT. It isa 
routine well worth keeping for future use, so make sure you 
understand just how it works. 

Line 630 defines the DIMensions of J$ as the LENgth of 
AS. Lines 640 and 650 are used to give the variable B a 
random value. A FOR/NEXT loop starts in 660, using C=0 
TO B. Line 670 selects from the DATA list (lines 800 
onward) the word selected by B, and 680 finishes that loop. 
READ WS (line 670) means that the word selected at random 
is given the variable WS. 

Line 690 sets the value of Y to 0, and in 700 A$ is made 
equal to W$ (the chosen word); so at this stage both A$ and 
W$ equal that word. A FOR/NEXT loop starts at 710: X 
equals the LENgth of A$. 720 is L=LEN(AS). At first sight 
it might seem that these two lines should be reversed (710 
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becomes 720, and 720 becomes 710); but this is not so. 710 
is a FOR line, and NEXT (at 780) returns to that FOR line. 
That would be ignoring line 770, which makes A$ one char- 
acter less on each pass, and so needs re-defining; therefore the 
lines are in their correct order now. Make sure you understand 
this point. 

At line 730 J$ is set to equal nothing; 740 makes N the 
variable carrying a random value of L (present LENgth of A$). 
The +1 is used at the end of random lines because the com- 
puter always starts counting from 0. In 750 J$ is now made 
equal to a single letter, selected from A$ by: MID$(A$,N,1). 
The last number inside the brackets ensures that only one 
letter is chosen; N decrees which letter, and A$ decides where 
it is taken from. 

760 LOCATE X+25 needs explaining. The 25 is where the 
position starts, but X is different on each pass, increasing by 
one character each time, for X is the control in the FOR/ 
NEXT loop. Y had been set to 0, but is now +2, so that moves 
2 lines down. PRINT J$ is fairly clear: it prints the letter. 

At 770 comes that standard extraction line that was des- 
cribed in Chapter One. It pulls that printed J$ out of A$, 
and sends A$ on with one letter less. 780 sends the computer 
back to 710 (the FOR line), and the process is repeated until 
X is exhausted. Then 790 sends the computer back to 240, 
the line after GOSUB 600. 

Before leaving the third and fourth sections of the program 
it will be best to deal with DATA. First of all line 650 
B=RND*50, refers to the number of pieces of DATA. If you 
alter the number of pieces in DATA you must make line 650 
correspond, otherwise you will get error messages. 

DATA is always entered in one way: LINE NUMBER(space) 
DATA(space)WORD(comma)WORD(comma)WORD (with no 
comma at the end). 

There are five lines of DATA at present in this program, 
and each line contains ten words (merely for easy counting; 
they could be any number). They were obtained from a 
dictionary, and are ten words from A, ten words from B, and 
so on up to E. If you want to alter this program (use shorter 
words, or more words) it can be done simply by altering those 
DATA lines (and line 650, of course). For my own use I have 
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produced two versions of this game, one with four- or five- 
letter words (suitable for youngsters), and one with longer 
words for those who like to stretch their minds. In both 
cases I have increased the DATA to over 200 words, which 
makes them into really good games. The five lines of DATA 
in this present program contain a lot of tough words, so that 
each anagram that comes up will tax most people. 

To return to the actual program at line 240. This is 
another example of printing in a WINDOW. Line 240 could 
be added to the beginning of 250, for it is there only to make 
the computer jump one line. Notice that ‘hash 2’ has to be 
used with every command (LOCATE, PRINT, and INPUT). 
Line 260 gives your entry (your guess at the word) the 
variable G$, followed by G$=UPPER$(G$), in case you are 
not typing in CAPS MODE. Then come six lines of IF 
conditions. The first is a cry for HELP1, and in that case the 
computer goes to line 440, where it prints the first letter of 
the word (which the computer carries in its memory as the 
variable W$), and then offers another go. 

Notice how this is done: IF G$=“‘HELP1” THEN 440. 
At line 440 is printed: LEFT$(W$,1) (that is the first letter 
from the left), and a penalty is given: WR=WR+2: GOTO 480. 
At 480 the penalty is added to the WRONG SCORE, follow- 
ed by GOTO 250, which is the INPUT “‘Give your Guess”. A 
similar thing happens with HELP2 and HELP3 (with a bigger 
penalty each time). In the case of line 300 (“GIVEUP”’) the 
whole word is printed, and this time the GOTO is to 360 — 
where a new game is offered. 

Those four lines (270 to 300) deal with requests for help. 
The next two lines (310—320) compare your guess with the 
correct words, and respond accordingly; either going to 330 
(WRONG) and back to 250; or to 340 (CORRECT) and then 
giving the SCORE before offering another game. It is fairly 
easy to trace through each sequence of lines for each of the 
six statements, so make sure you understand exactly what 
happens in each case. 

It will be seen that all the lines from 330 to 480 are 
subject to the six IF lines, and they give a fair representation 
of how such matters are arranged during any game: The IF 
statements sit together, and direct the computer to small 
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routines elsewhere. One point about the arrangement of the 
IF statements is important, however: their sequence. If line 
310 occurred before the other IF statements the HELP 
statements would not work: IF G$ (is not equal to) W$, 
could also apply to HELP1 etc. Therefore watch the sequence 
of IF lines to see that an all-embracing line (such as line 310) 
comes after conditional lines like 270—300. 

Notice that in lines 380—390 both upper and lower case 
letters are allowed for. This is in line with the entry men- 
tioned earlier (line 260 GS=UPPERS(G$)). A great number 
of errors in programs are caused by being in lower case when 
upper case is called for, and vice versa. In my programs I 
usually stick to CAPS MODE, and if an error occurs in 
working I first check to see that I have not inadvertently 
reverted to lower case before looking for more serious 
trouble. Wherever possible use entries that will obviate such 
problems, such as lines 260, 380, and 390. 

Go over lines 230 to 480 once again, noting how the 
WINDOW hash numbers have been used. Both hash 1 and 
hash 2 are used in lines 330 and 340. Lines 60 to 350 con- 
tain all the procedures for WINDOW, and could be saved to 
a Printer. 

The small routine in lines 640 to 680, coupled with DATA 
(at 800 onward) is an example of how to READ DATA at 
RANDOM, so take a copy of that on the Printer, too. 


10 PEM #EEEKESRERERESEERRSERREEE SE 

26 FEM PERE Prarie THE WORD EE 

3A REM sokK SEPEEEERLEREREEEEEE 

44 THE 8.23: HE 1,59:1IHK 2.2: THE 3.6 

SA BORDER 22:PAFER @:FEH 1:CLS 

64 WIKGOb #1, 22: 46,6,12:PEH #1.2 

7A WINDOW #2.1-21.4.25 : 

S04 PEM S: LOCATE 2.2:PRINT “#44 GUESS 
THIS WORD "GCHRS! S450:PEH 1 

4 OR TGIH B75. SEE ORAL EI Bee: CRAMF 


32: DRAWER -256. 8: ORAWR B,-Se 
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1@@ LOCATE #1,.5.1°PRIHT #1. "SCORE" 
110 LOCATE #1.1.3:PRIHT #1. "HROHG:": 

WR=4: LOCATE #1.5.2:PRIHT #1-HR 

128 LOCATE #1.1.5°PRIMT #1. "RIGHT: ": 

COS: LOCATE #1.9.5°PRIMT #1.00 

126 LOCATE #1.1.7°PRIMT #1, "PROFORTI 

ie ea 

140 LOCATE 22.14:>PRIHT "“EHTER ‘HELP 1 
"SLOCATE 24,.15:PRINT “or HELPS": LOCA 

TE 24.16:PRINT “or HELPS": LOCATE 24, 
LP PRIHT “for letters" 

150 LOCATE 22.19°FRIHMT “GIVEUF for E 

Ho" 

“HM REM ASEEREREREERALEEAREEES 

[140 REM £43444 GAME 3 RE KE 

Soa REM ARRERAERESEPERERRERSE 

250 GOSUEB eae 

240 PRIHT #2 

250 PRINT #2." GIVE YOUR GUESS" 

2Ea IMPUT #2,G%: GH=UPPERSC GS 

IF G="HELP1L" THEN 448 

IF GS="HELP2" THEM 458 

IF GS="HELFP3" THEM 460 

IF G$="GIVEUP" THEH 476 

IF G$< 2H THEH 33a 

224 IF G$=W THEN 34a 

394 PEW S:PRIHT #2." WROIKMG': FEW t 
SWRSWR+d LOCATE #1.9.3:PRIHT #1.HR:G 

OT 250 

344 FEM 3:PRIMT #2," CORRECT" = PEH 
1i0=C04+1:LOCATE #1.5.5:FRIHNT #1.00 

a5 LOCATE #1.11,.7°FRIHT #4,003"6°"Gu 

Fi 

964 PEM S: LOCATE 24,22:FRIHT "TR AG 

ALHS t-Ho": PEM 1 

a7a LOCATE 24.24:IHMPUT TS 


i 


-_ 
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ee Se Lit ok 
St i a i a 


bon ho fea we fea 
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IF T$="*" OF T$="5" THEM 440 

IF T$="H" OF Lecatits THEH 414 

CLS: RUM 

CLS:LOCATE 14.12:PRIHT "THAME ‘VO 

WO FOR THE GAME." 

429 GOTO 424 

436 ENE 

449 LOCATE 22, 

R=WR+e GOTO 45 

438 LOCATE 22.21:PRINT LEFTSOHS. 22° 

R=HWR+4 GOTO 4328 

468 LOCATE 22.21:PRIMT LEFTS¢ WS. 32°l 
A 


we 23 
me LE 
1 yr aS Et 


1:PRIWT LEFTS¢ WS. 1 o:l 


a ms 7 ey 


R= ae BOT 43 
1 LOMATE reat PRINT W$:GOTO 268 
LOCATE #1, 


feX] 
wit 


S°PRINT #1.HR GOTO 2 


Sr ce 
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aA 
m 


FEM KEEEEEEPESESEEEAEE ES 
REM 44% FORM AHASRAM $k 
FEM $ARREEAREESERRREREESE 
DIM Ito LEMC AS oD 
RAHDOMIZE TIME 
B=RIHMo #54 
FOR C=8 TO B 
READ Ws 
HE TOC 

| 
Ag= ahd 
FOR H=1 TO LENO AS?) 
L= LENS Ag} 
JI $= au 
H=THTS RHOEL +1 
JE=MIOSS ASH, 1) 
LOCATE Ateh, V+e:FRIHT I$ 
AS=LEFT#¢ AS. H-1 S+RIGHT$: AS.L-H 
HEAT 
RE TUF 


ge es 
rat Wa 


OE RE A 


= 
ae! 


iT) 1 fe fo feo 


vem oe Se Qe 
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SAH REM ERAEERREEEEERERELEES 
S16 FEM €¢¢¢3EK DATA SERRE 
So REM £RRRERERKEKERAEREEEL 
S30 DATA ABRHOOHED. ABERRAT IO. ABHOR 


EMCEE. ABOMIHAT TOW. ABSOLUTISM. ACADEMIC 
TAH. ACCELERAT IMG. ACCOMMODATION. ACMI 
ISTRATIVWE. AGGRESSIVE 
a4 CATA BACILLAR'. BACCHAMAL TAH. BACT 
ERTOFHAGE, BARRACUDA. BEATIFICATIOW, BE 
DRABBLEC. BECEVILMEMT. BICARBOHATE. BLA 
MENOR THY. BOOMER AMG 

S28 DATA CACAYEROUS. CALCULAT IOM. CAME 
ITATURE. CEMTEMHIAL. CEMTRIFUGAL, CEREM 
QHTAL. CHAMBERLAIM. CHARACTERIZE. CIMEM 
ATOGRAPH. CIRCUMPOLAR 

S64 DATA CAGUERREQT PE, CECAPITATE.CE 
CLIHAT ION, CECICATION. CEFIMITIVE,s CELI 
BERAT TOM. CLAMETRICAL, CISEMNBARRASS. BI 
SPROPORT IOHATE. COCTRIHAIRE 

B78 DATA ERR THOURRE. EBULLIEHT. ECCLES 
IASTICAL. ECOMOMICALL’. EDUCATIOH, EFFL 
WVWIUM, EGALITAR IAM, EGREGIOUS, ELECTION 
EER. ELECTRIOCUT TOM 
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Chapter Six 
CROSSWORD SOLVER 


Anyone interested in word games is usually interested in 
solving crossword puzzles, and one of the difficulties of that 
game is the abundance of words that have gaps in them — gaps 
to which the existing letters seem to give no clue. Then comes 
the time to use pencil and paper for inserting various letters 
in those gaps; and what a frustrating business that can be. 
However, do not despair, for I can provide some help. 

In this chapter is a program optimistically called ‘CROSS- 
WORD SOLVER’, which fills those gaps for you with each 
letter of the alphabet in turn. That still leaves a great deal of 
the decision-making to you, however; for example: AFFECT 
.& EFFECT. The clue should help in such instances, of 
course, although some unkind clues can be very misleading. 

The program is very simple, and needs little explanation. 
After the introductory lines defining INK etc., comes GOSUB 
3530, leading to a re-defined CHR$ character (209), of which 
more later. Then comes RETURN (to 70) which is GOSUB 
2000. This leads to a screen of instructions, and then, at the 
touch of the Space-bar, to the game. Note how that move is 
made (2070-2090). A plain PRINT statement ‘Press any 
key’ is followed by ZS=INKEY$:IF Z$=‘°? THEN 2080. 
This is a line that stops all movement by the computer until a 
key is pressed. There is no further ‘IF’ statement defining a 
key — just CLS. Therefore, if any key is pressed the computer 
will proceed, clear the screen, and move on to the next line. 
In this case it is to the lines in section 3000 that produce the 
screen display for the game. After a few lines of instruction a 
long rectangle is drawn, in which the word to be worked on 
is printed, complete with dashes in place of the missing letters. 

Above the rectangle is a line of numbers (1 to 26) which 
indicate the number of the letter or dash below it. Between 
the number and the letter (or dash), and intersecting the top 
line of the rectangle, is a line of divisions printed by that 
newly defined character 209 (in line 3080). Notice that this 
is entered as: PRINT STRING$(26,209), and that it is not 
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necessary to enter CHRS(209), because the second number 
after STRINGS is understood (by the computer) to be a 
character number. The first number details how many of 
that character. 

These divisions have been put there to make it easier to 
see which number applies to each letter or dash. There are 
26 spaces for letters, which should be long enough for most 
words. Line 3100 sends the computer back to 80, which is 
an INPUT asking you to enter the word that puzzles you, 
using dashes to represent the gaps. Line 90 makes sure that if 
you use a lower case letter it is at once converted to a capital 
letter, and then the computer is held for your entry. 

Line 100 prints the word, complete with dashes, in the 
rectangle, line 110 erases the INPUT question, and 120 
provides another INPUT ‘Enter space No.’, which is given the 
variable J. Line 130 holds the computer, and 140 gives values 
to the X,Y coordinates for future use. Lines 150 and 160 
erase one INPUT and produce another one, while 170 is 
GOSUB 1000. 

This is the section that prints all the alphabet, one letter 
at a time, in the space asked for in line 120. Line 1030 
defines VS as the alphabet, but in this case with the letters 
re-arranged: the vowels have been grouped together at the 
beginning of the string, so that they can be rotated through 
the space in turn, to be followed by the consonents in their 
turn. 

The mechanism for printing the alphabet in turn is one that 
has been used previously, but is now altered slightly to give a 
different effect. Line 1040 gives L the value of the LENgth 
of VS; 1050 is the beginning of a FOR/NEXT loop of N=1 to 
L; and 1070 PRINTs MIDS(VS,N,1): that is one letter from 
VS selected in turn by N on each pass of the loop. Line 1080 
is a pause (to be explained later); and 1090 is a line in which 
the pressing of the Space-bar (No. 47) will cause the rotation 
of the letters to stop. Then the computer returns to line 180 
— ELSE if it is not pressed the computer continues with the 
pause to the full time of ‘1 to 1000’. 

The length of this pause will not suit everyone, and it can 
be altered. Change it to 100, and the letters will flick through 
so quickly that it will be hard to press the Space-bar in time 
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to catch the letter you want. It is up to you when the pro- 
gram is entered and running to alter it to suit yourself. I find 
I need plenty of time to consider each letter in turn. 

When the Space-bar is pressed, the letter at present in the 
space will remain there, and the computer will print the 
INPUT ‘Enter space No.’ once again. You can then go over 
the same space again, or any other space you wish, and this 
procedure can be repeated as often as you wish. 

This is the last of the small programs used in this book to 
demonstrate in detail the various ways of handling letters and 
words, for the remaining chapters are devoted to writing larger 
programs from the routines used previously. It will be as well 
to go over those routines once again. 

In Chapter One anagrams are produced from any entered 
word. Ten anagrams are made, but this could be any number, 
just by altering the Q value in line 2050: 1 to 100 would pro- 
duce 100 anagrams of the word. 

Chapter Two uses the shuffling routine in a different way 
to produce what is (in effect) an anagram of the alphabet, and 
includes a line (620) to ensure that no letter is used more than 
once. Inside the shuffling routine is a smaller one that selects 
locations for placing the letters in a block of five by five; not 
in a straight line as is more usually done. This is achieved with 
two FOR/NEXT loops: one for Y and one for X (lines 550— 
560), with a set of conversions at section 2000 onward. 

Chapter Three approaches the problem of word and letter 
handling in a different way. This time it is to put given words 
into alphabetical order. Two programs are incorporated into 
one here: the first to accept the words entered one by one; 
and the second to select the words from a DATA statement 
(this one is used by me to provide an index for this book). 
This is the action of putting into order, instead of shuffling. 
In addition, a way of using WINDOW is shown. The two 
programs can be used separately: RUN will produce the first 
program; and RUN 3000 will produce the second one. 

In Chapter Four is a program that once again shuffles the 
letters of the alphabet, but it also shuffles their positions on 
the screen, and prints them randomly in any of the three 
colours available in MODE 1. These three random routines 
are all incorporated into lines 200—370. In addition a ball is 
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moved around the screen with the cursor arrows, and the way 
to do this is shown in.lines 400—590. 

Also in Chapter Four is another program ‘How Many 
Words’ which begins to gather together previously demon- 
strated routines. This time, however, it is the programmer 
who does most of the thinking. The way the game routine 
(lines 1000—1220) has been arranged is worthy of note in this 
instance — as well as the use of some string variables. 

In Chapter Five is a small game using the anagram routine 
from Chapter One, but it is most notable for its use of two 
WINDOWs, and how they have been arranged. It is possible 
with their aid to be able to enter very many words, and to 
have them scroll up the screen without disturbing the rest of 
the screen layout. This can be most useful in many games — 
and utilities. 

This review of some of the previous routines has been given 
here in an abridged form as a reference section for you to be 
able to find them easily when working out a routine to suit a 
program you may have in mind. The following chapters are all 
of complete games; except for the final chapter, which deals 
with producing a copy of the screen display on the Printer. 


14 PEM EXKKEREKAEEKAEAEREEKER ELK 

20 REM kk CROSSWORD SOLVER 4% 

36 FEM ERRERHERERAREEEREERER EER 

4$@ INK @.26:IMK 1.1: IHK 2,2:INK 3.6 

S@ BORDER 15:PAPER @:PEH 1:CLS 

54 GOSUB 3330 

78 GOSUB 2Hga 

3@ LOCATE 2.23:INPUT "ENTER SPACES 4% 
LETTERS"; Ws 

30 WSSLIPPERSC WS: TF Wse"" THEN 30 
186 LOCATE 4.20:PRIHT Ws 

119 LOCATE 2.5: PRINT SPC* 389 

124 LOCATE 2.23:IMPUT "Enter space N 
O."GJ 
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“w IF J=@ THEN 138 

9 ‘seh: Kes+J 

M4 LOCATE 2.23:PRINT SPCCSg> 

4 LOCATE 2,.23:PRINT “USE SPACE-BAR 
Oo FIA" 
8 
a 
a 
1 


— Re pe Re 


GOSUB 188g 

GOTO 118 
BO REM £ARRKRRKEREKAEEREREEES 

MA REM £4* ROTATE LETTERS «kx 

1929 FEM £HKKEKEEERRAREREAREKAK 

1636 ‘'$="AEIOUBCOFPGHIKLMHPORSTYWKYZ" 
1449 L=LEH¢/$> 

1956 FOR H=1 TOL 

1466 LOCATE %.‘*/ 

1970 PRIHT MIOS¢ VSM, 1D 

1458 FOR f=1 TO 1688 

1838 IF IHNKEY¢475=8 THEM RETURH ELSE 
HEXT & 

1194 HEAT N: RETURH 

SAG FEM KEXKKEKAEKERAKEKKEEKAKE 
2916 FEM *#44%K INFORMATION £AKKK 
SAGA REM KKEKHKKEREKEKEKAKEAKERAE 
2629 FEW 2:LOCATE 6,.2:FRIHT " * *k SO 
LVIHG CROSSWORDS #£ kK": PEM 1 


pee pe ee pe 


2849 PRIHT:FRIHT " When working on 
crosswords ane often becomes stuck 
with gars in a word. This Prog 


ram can help by rotating the alpha 
bet through those gaps." 


2HSo PRIWHT:PRIMT " Enter the word 

comPlete with its sPaces (repre 
sented by dashes) and the alpha 
bet can be rotated through each 
of thease spaces in turn." : 

2460 FRIHT:FRIHWT " It i5 Possible 
to gc back over ary letter that d 
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ges nob fit, and the Program ¢ 
an be used until satisfied with 
the result." 

2470 PRIHT: PRINT " Press any key £ 


o start." 

2030 2$=IHNKE7S: IF 2$="" THEN 24ea 
243969 CLS 

S088 REM EEREKEKERKELEREELE 

3610 FEM AAREK SCREEM #4:8EX 

SH26 REM EEREEEEEELEEKEELER 

S030 PEH 3:LOCATE 11,.2:FRINT "CROSS 


ORO SOLVER": FEW 1 
3449 PRIHT:PRIWT " Enter letters 4 
Wallable in word form, using a dash 


C-3 to indicate each sPace Cli 

ke this: -S-I--T- 3." 

S050 PRIHT:FRIHT " Indicate sPace 
to try out letters bey the number 
abowe the dash. 

SH60 FPRIMT: PRINT 7 Respond fo the 
questions as they SPPear., Fix 
letter in Positio on by using the 
SPace-bar. ‘ou can So back = a 

anys sPace," 

3478 LOCATE nf 115 ‘PRIWT "LesdSerssai2 

S456 73981234 ‘LOCATE 13.17:°FRIHT " 

L11111111 12222222" 

ZASG@ PEM 2: LOCATE 4,19: PRIHT STRIHMGS 

C26,2099:PEH 1 

BE oe QRIGIH 49.72: 0RAW 436.8. 2: 0RAWF 


32: DREAWR -436,0:0RAWR 8.-32 
RETURH 

FEM #AEERREREEEEEERESE 
FEM #4444 U.0.G5 #44#* 


mi (at i © 


a) es ms fer 1 
fat Poa ee a a 


fa Gea 3 3 


BM REM RAAEAEREEAEEEREEES 
MW SYMBOL AFTER 2a 
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HW SYMBOL 269,1,1,1.1.1,1.1.1 


S28 RETURH 
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Chapter Seven 
CROSS-JOIN WORDS 


The game of ‘CROSS-JOIN WORDS’ is for one player, who 
has to use his intelligence and knowledge of words to form 
part of a crossword puzzle. Seventeen letters are given, and 
from these a word should be constructed (of any length) to 
fit somewhere on the board — preferably starting near the 
centre, which is marked with a star. The second, and follow- 
ing words should incorporate a letter from an existing word 
as well as some of the seventeen shown freshly after each 
entry. They are entered either across to the right, or down 
from a point. This starting point of the word is asked for, 
and must be given accurately enough to see that the letter 
incorporated from another word is used in its proper place. 

The listing (given at this chapter end) consists of six 
sections, and follows a format similar to that recommended 
for previous programs. After the INKs and BORDER have 
been defined is GOSUB 4000, which leads to a screenful of 
instructions, including a demonstration of some .cross-joined 
words in a small square. At. the bottom of the screen is: 
‘Press G for the game’. Notice how a quick change-over is 
arranged with four lines. PRINT is used instead of INPUT; 
K$ is made to equal INKEY$; and then comes: IF K$ = 
“” | This holds the computer. The next line prevents an 
error of capital or lower case letter being used, and 4140 is 
CLS:GOTO 5000. That GOTO 5000 could have been left 
out, for in any case the computer would move on to the next 
lines when once a letter is pressed. 

In section 5000 (the game board) are some brief playing 
instructions, and a board is drawn to contain the words. 
Location letters are printed at the top and left-hand side of 
the board, and there is a long rectangle below it to contain 
the seventeen letters for each word. Then comes RETURN, 
which sends the computer back to the line after GOSUB 
4000, which is GOSUB 2000. 

This is the section for selecting the seventeen letters to 
print in the rectangle, and consists of the shuffle routine 
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used in previous chapters, but with the addition ofa small 
routine that prints each letter with a space after it. 2030 
makes A$ equal to all the letters of the alphabet, and 2040 is 
RANDOMIZE TIME, so that the randomly selected letters 
start at a different letter each time. Then comes the new 
FOR line that is used to space out the letters: FOR S=1 TO 
34 STEP 2. This S is used in line 2090 to locate the printing 
of the shuffled letters. The X location to start with is 3 + S, 
so that an extra 2 is added to X on each pass through the 
loop. Line 2100 is the standard line that was mentioned 
previously (in earlier programs) that extracts the chosen 
letter from A$, so that in the next pass through, A$ is one 
letter less. This prevents any letter repetition. 

In the case of this game it is doubtful whether it is an 
advantage to prevent letter repetition, and if you decide that 
you would prefer to have some letters repeated at times, then 
all you need do is place a REM at the beginning of line 2100. 
The routine works just as well without this line. After all the 
seventeen letters have been printed:the computer goes back to 
the line after GOSUB 2000. 

This is to the Game section, where the moves are made. 
Line 1040 is an INPUT asking you to enter a word. Line 
1050 holds the computer until ENTER is pressed, so there is 
plenty of time to correct or alter the word before it is entered. 
Line 1060 makes sure that if you enter lower case letters by 
mistake they are corrected to capitals. 

When it is entered line 1070 erases the question, and 1080 
prints another one asking for the location. There are three of 
these location questions: the top letter; the side letter; and 
whether the word is to be printed horizontally (A), or vertical- 
ly (D). These are PRINT queries instead of INPUTs, so that 
they do not require the use of ENTER in order to function. 

In answer to the first query (which must be a top letter) the 
computer is directed to 3000, where are the X conversions. 
C$ represents the entry, and in lines 3030 to 3170 X is made 
equal to the number corresponding to the space under the 
letter entered. 3180 RETURN sends the computer back to 
the next query, which is for the letter at the side of the board. 

This is in line 1120, and following this is a similar routine 
at line 3190—3330, but for the Y locations this time. D$ is 
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the variable used this time, and after the Y number has been 
selected the RETURN in line 3340 sends the computer back 
to the third query. This one, at 1160, asks you to press A or 
D (for across or down), and is followed by GOSUB 3530. 
The variable is P$, and the ‘Word Direction’ section at 3500— 
3640 consists of three small sections: the first one (lines 3530 
—3540) sends the computer to the second or third section, 
according to whether A or D was pressed. 

These two sections are similar, except that one introduces 
a FOR/NEXT loop into the X location (to print the letters 
sideways), and the other uses a loop in the Y section to print 
the word downward. The use of —1 in the location is 
occasioned by the use of 1 TO M in the FOR/NEXT loop. If 
0 TO M was used, then the print statement would be in error 
in line 3570, for G cannot (in that context) represent 0 TO M. 
Therefore X=G would be 1 space to the right of the correct 
position. This applies similarly to the Y position. 

The word is now printed in its proper place, and the 
appropriate RETURN (from 3590 or 3640) sends the com- 
puter back to line 1190, where the query is erased; then to 
1200, which sends the computer back to 1030; where the 
routine starts again with the printing of seventeen different 
letters in the rectangle, followed by the INPUT query: 
“Enter Word”. 

There are a number of points throughout this program that 
are worth bearing in mind, for they can be useful in many 
other programs. Take lines 1070, 1110, 1150, and 1190: 
these merely print a row of spaces, thus erasing the previous 
query to make room for the next one. They are not essential, 
for the following query in that same place would erase the first 
one — except when the previous question was longer than the 
second, for then some letters would remain to confuse the 
sense of the following question. This method of erasing is the 
best way to do that job. 

Notice the different ways of phrasing an INPUT query and 
a PRINT query (Press only). The INPUT question is followed 
by a semicolon (;), and then by a string variable. The PRINT 
query has nothing after it in the same line, but in the next 
line is always: C$ (or any other variable) = INKEY$, and then 
the IF (variable) = “” line. Grasp this principle thoroughly, 
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and all kinds of input become very much easier to arrange. 

In line 2040 is RANDOMIZE TIME. Without that extra 
line RND would produce a form of random number that was 
not truly random, for it is worked out by the computer start- 
ing from the same base each time, and must inevitably repeat 
sometimes. Using RANDOMIZE TIME ensures that RND is 
more truly random, for it works from a number coupled to 
the length of time since the computer was switched on. It 
isn’t always necessary to use RANDOMIZE TIME, but often 
it is essential. 

There is a use of the keywords TAG and TAGOFF that has 
not been mentioned in this book. When this program is 
entered and running correctly, EDIT line 5050, and insert 
REM at its beginning to prevent it functioning. Then enter 
(as an extra line): 5055 TAG:ORIGIN 56,352:PEN 3:PRINT 
“ABCDEFGHIJKLMNO”;:PEN 1:TAGOFF:LOCATE 22,4: 
PRINT “‘K (5 spaces here) ARE GIVEN”’. 

This is actually line 5050 altered, and with the addition of 
TAG and TAGOFF; the first LOCATE 4,4 has been altered to 
‘ORIGIN 56,352’. This is 8 pixels to the right of the original 
position. By this means text or graphic characters can be put 
in other than the normal character spaces. 

If the program is now RUN it will be seen that the top 
numbers above the board game have been moved slightly to 
the right, so that they now sit over the lines, instead of over 
the spaces. This alteration is definitely not wanted here, 
but there are many times when it would be an advantage to be 
able to do this. Make sure you really understand how this 
works — but remember one extra point: the characters being 
printed inside-a TAG/TAGOFF statement must always be 
followed by a semicolon (;). If you omit this some peculiar 
characters will be printed after the line of text. 

For those of you who have a DMP!1 Printer, and who wish 
to print out just one line from a program, use this formula: 
LIST 5055—5055 #8. That will do the trick. Of course, you 
will use the appropriate line number. Similarly, using numbers 
like this (5030—5090) will select just those lines from the 
program to print. 
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7™ On & m3 far 
MTD i MD i eae 


18398 
1849 
bls 

1058 
1He68 
1478 
1439 


PEM KEERKKEKERKEREAKEKKEKEREKE 

PEM #44 CROSSJOIN WORDS £44 

FEM AKEEEERAKELEREREKKKRELE 

IHK @.26:IHK 1,4: INK 2.2:IHMK 3.6 
BORDER S:FPAPER @:FEH 1:CLS 

GOSUB 44ng 


PEM FEXEKEKKEREAKKEREEEK 

REM £##4*£44% GAME KAEKREK 

FEM EKEKERAEKAEEEAEEKERK 

BOSUB 2aae 

LOMATE 4,23: INPUT "EMTER WORD"; 


IF Ws="" THEN 1458 
HS=FPERSC WS 9 

LOCATE 4.23:FPRINT SPCC Si) 

PEM S:LOCATE 4,.23:PRINT "FRESS 


TOP LETTER": PEH 1 


1439 


a el a et ed Oe 
el ee ee od 
MA Ata Ohare 


Oy OWwM AD ws 


fio fa ee SD Wo co a 
SID DOs 


Mme awa PQ ee ee ee 


Pa Pa Poa Po fi ee ee 


CS=ITHKEYS: IF CH="" THEN 1994 
GOSUE Sawg 

LOCATE 4,23: PRIHT SPCC 30> 

FEM 2:LOCATE 4,23: PRIHT "PRESS 
LETTER’? FEN “1 

DS=IHKE’S: IF OS="" THEN 1138 
GOSUB 3134 

LOCATE 4.23:PRIHT SPCC 38) 
LUCATE 4.23:PRINT "PRESS A OR D 


PS=THKEYS: IF PS="" THEN 1170 
GOS 2520 

LOCATE 4,.23:PRINT SPCC 36> 

GOTO 1a3e 

REM SKE RRRREERERE ERR RRE 

REM ##4 SELECT LETTERS #£#4 

FEM EEEEEESEEEREERERERELKER 
AS="RABCOCEFGHI JKLMMOPGRS TUS SY 
PAHOOMIZE TIME 
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2659 FOR S=1 TO 34 STEP 2 
2669 J$="":L=LEH¢ AS > 

2070 R=IHT¢ FHDKL 941 

SHS IJS=MI0S0 AS. RL 13 

2490 LOCATE 3+5,.21:FPRIWT 1% 
2160 AS=LEFTS¢ AS. P—-1 9+RIGHTS AS.L-F oD 
2119 NEAT S:RETURH 

S009 REM KKEKKEEKEKEKEEAKEEKE 
2610 FEM ##% COHVERSIOWS £#% 
2G26 FEM FERKEKEAREREEEEEERE 
3030 IF C$="A" OF CH="a" THEM & 
3446 IF CS="B" OF CS="b" THEM % 
2850 IF C#="C" OF CH="c" THEN : 
3660 IF C#="0" OF CH="d" THEY 
SQ74 IF CS$="E" OF CH="2" THEY 
2926 IF C$="F" OF CH="F" THEH 
SO38 IF C$="G" OR CH="9" THEH 
2196 IF C$="H" OR C$="h" THEM # 
3119 IF C$="I" OF Cs="1" THEM # 
Sleo IF Cg$="" OF CS="5" THEM & 
3130 IF C$="K" OR CS="k" THEN 4 


ruiunnrninwnnuewe wu w 


Ne NE 


rere re repre re rere LO com One 


MN Uh | 


3144 IF C$="L" OF Ce="1L" THEM x 

S156 IF C$="M" OR CSs"m" THEM & 

216@ IF CS="H" OF CS$="n" THEM # 

317@ IF Cs="0" ORF CS="0" THEM & 

3130 RETURN 

319@ IF O$="A" OR OS="3" THEM = 
3264 IF DS="B" OF DS="b" THEH ‘= 
3219 IF O$="C0" OF DS="c" THEN ‘= 
a229 IF D$="D" OR DS="d" THEM 7 

3234 IF bS="E" OF DS="e" THEN ¥ 


30 
224@ IF D$="F" OR OS="F" THEM 
2250 IF D$="G" OF bS="9" THEN 
3260 IF D$="H" OR OS="h" THEH 
3276 IF b$="I" OR Ds="i" THEN 
3280 IF O¢="J" OF DS="J" THEM 


7 ae — 2 


rennet 
peer ee ee ee ON 
WN 


60 


Tad tas Ce Ot Oe hee 


22350 IF O¢="K" OR OS="k" THEN Y=15 
2aQ IF O$="L" OF DOS="1" THEN =16 
316 IF O$="M" OR OS="m" THEM Y=17 
226 IF D$="H" OF bS=""7" THEN V=13 
33@ IF O¢="0" OF O$="0" THEH ‘=19 
244 RETURH 
SOQ REM FEKERRKALERRKEEEKEK 
a16 REM k WORD DIRECTIOH * 

S326 REM FEEERREEEKELERKAEK 

3530 IF FP$="A" OR PS="3." THEN 3550 

446 IF FPt="0" OF P$="d" THEH S60 


Mm 


M=LEHMC WS 2:FOR G=1 TO IM 

LOCATE #-1+6,'7 

PRIHT MIDS WS,G, 19 

HEAT G 

RETURM 

M=LEM! WS>:FOR H=1 TO M 

LOCATE #.''-1+H 

PRIMT MIDS¢WS.H, 1 

HEAT H 

RETUPFH 

FEM EEREREEKERERREREEREREKES 

REM #2444 INSTRUCTIONS #4444 

4820 REM KKREREREEREREEREREREEEAE 

4629 PEM 3:LOCATE 13,.2:PRINT "CROSS. 

DIM WORDS": PEN 1 

4949 LOCATE 3,.4:PRIHT "A 0" PRIWT 

" AVENUE": PRIWHT " E F":PRIHT " R 
I": FRINT " AGROMOMY": PRINT "EGGS 
I":FRINT " EIGHTEEM":PRIHT " 

Ee" 

4939 FOR #=@ TO 163 STEP 16: ‘f=224:0R 

IGIH 4.7: DRAW 6,123,2:MEAT K: FOR ‘f=2 

24 TO 360 STEP 16:4=@:0ORIGIN #,': DRA 

Wo 160,.8:HEAT ‘¥ 

4960 LOCATE 12,4:PRINT " The aim is 


Mp he M4 oo ~)o, 


=_ 
=a! 


2h 6 69 Oo Go fo Goo 
ST TT CA Oo cA 


WG Mm Ow ma wo 


fn 
ao 
—s 
iS 
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to form words": LOCATE 12,5:PRINT "Ff 
rom the 17 letters":LOCATE 12,.6:PRIN 
T “already aon the board." :LOCATE 12, 
S:PRIHT " Werds can be entered acro 
4979 LOCATE 12,3:FRINT “or down, wei 
ng the top & side" :LOCATE 12.18:PRIH 
T "letters to Flace the farst":LOCAT 
E 12,11:PRIHT “letter of the word-—-n 
ear the": LOCATE 12,12:FPRINT "board c 
entre is best. 
$920 LOCATE 2,13:FRIHT " Each word 

entered after the first wordmust use 

one or tore of the letters of word 
6 already on the board." 
4494 LOCATE 2. 17:FRINT " When the & 


card is nearly full the Pattern 
of words could be used for an orig 
inal Crossword Puzzle. It would 


Just require black 29uares to Fill + 
he sPaces, and some misleading clue 


a 


4100 ORIGIH 8.4:0RAW 629.0,2:0RAWR a 
339: DRAWR -639,4:CRAWR @,-3:99 

4114 FEH S:LOCATE 2,.24:FPRINT "Pres 

G&G for the game": FEH 1 

$126 KS=IHKETS: IF kS="" THEM 4120 

$120 IF BS="G" OF Kk$="9" THEN 4146 

4149 LS:GOTO shun 

SHAM REM KKEEEAEEEAESEREEEERER 

SH18 FEM ##4+4% GAME BORED $heaek 

3620 FEM La le ele ca 

2430 LOCATE 4.2: PEH 3:FPRIHT “CROSS JIa 

IH WORDS " PEM 1:LOCATE 22.2:PRIHT 
wo 17 LETTERS" 

2049 LOCATE 24.3:PRIHMT "TH" :FEH 3:LO 


ul 
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CATE 22.3:PRIHT "I":FPEH 1:LOCATE 23, 

3:PRIHT "S" 

“958 LOCATE 4,.4:PEN 3:PRIWT "ABCOEFG 

HIJELMHMO" :- PEW 1:LOCATE 22,.4:PRINT "K 

ARE GIVEN" 

SHE@ FEM 2:LOCATE 1,5:PRINT " A": PR 

IHT" 6B": PRINT": C"': PRINT" OO": PRIHT 

" E"OPRIHT" FF": PRINT" G":PRIHWT" 

H":PRIHT" I": PRINT" J": PRINT" KK": 

PRIHT" L':PRINT" fM":PRIWT" A! : PRI 

HT" OO": PEH 1 

i078 LOCATE 22,5: PRIHT"E" :LOCATE 24, 
5S: PRINT “Use ane of these": LOCATE 24 

oo: PRINT "letters to make" :LOCATE 24 

S°PRIHT "a words & then" 

29398 LOCATE 22,16:FRIHT "ENTER IT CO 

MPLETE." 


3994 LOCATE 22,12:PRIHT "Then locate 
Place": LOCATE 22,13:FRIHT "for 1st 
letter, ": LOCATE 23,14:FRINT "2% then: 
T16@ LOCATE 23,16:FRIHT “PRESS Top 1 
etter, ": LOCATE 23,17: PRINT "PRESS si 
de letter." LOCATE 23,139: PRIMT "PRES 


3S Acac cross } ‘LOCATE 26.19: PRIHT "or: 

De down 3! 

aii FOR 4=42 TO 253 STEP 16:‘/=95:0R 
IGIN #. 7: CRAM @,.246,1:HEXT % 

S126 124 FOR 7Y=96 TO 336 STEP 16:0R 
IGIH 4s: DRALM 240,0,1:HEXT ‘7 

S130 PEN Z2:LOCATE 11,12:PRINT "XK": PE 
Hod 

2140 ORIGIN 44,56:0RAW 544,4,2:0RAWR 
8,32: 0RAWR -544,38:0RAWR @,-32 

5150 ORIGIN 6.4:0RAW 639,6,.2:0RAWR @ 
J239: DRAWR -639,.0:DRAWR @,.-399 

2166 RETURN 
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Chapter Eight 
THINKING OF A WORD SQUARE 


The game used in this chapter is one that has been about in 
various forms for many years, but it always arouses interest. 
It consists of entering a word (of any length up to nine 
letters in this version), and then thinking of another word of 
the same length that is different, but that uses the last letter 
of the first word; it is entered directly below the first. The 
third word must again be different, but must use the last two 
letters of the second word. All these repeated letters must 
fall directly below the one above. This goes on until a com- 
plete square of words has been formed; as many words as there 
are letters in the first word. An example is shown at the end 
of the chapter. 

When using words that are four or five letters long it is 
relatively easy to complete a square of words, but when it 
comes to words of eight or nine letters each it is not so easy. 
This is a game that stretches minds considerably, and is 
designed for a single player, or for two players; each one 
supplying alternate words. 

There are five main sections in the program: the initialisa- 
tion of the colours; the game moves; a section for printing 
the moves; an example of how the game is played; and the 
screen display. After the colours have been defined, the 
program starts at line 60; GOSUB 3000. 

It may be helpful to describe here why line 60 is followed 
by the Game section at 1000, placing the Example and Screen 
sections at the program end. Every time the computer is 
given an instruction (such as one of the many GOSUB 
commands used in the Game section), it searches through all 
the line numbers from the beginning to find the line wanted. 
If the Example section at 3000 and the Screen display section 
at 4000 were placed between line 50 and the Game section, 
the computer would have to race through those every time it 
came to a command. Placing these two sections at the end 
saves playing time. Similarly, to save time when playing, the 
various GOSUB lines used during play are to a section at 2000, 
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immediately after the Game section. 

Therefore line 60 GOSUB 3000 points to a section that is 
used only once at the start of the game, and is then ignored. 
In 3000 a square of words is shown, together with a few 
instructions, using ORIGIN/DRAW and LOCATE/PRINT 
statements. This instruction section is extra to the game 
itself, and, after you understand the game, could well be 
deleted. However, it is included because if the game has not 
been played for some time, the reminder is worth seeing. At 
this section end, in lines 3100—3120, is a routine to move on 
to the next section. This is arranged so that pressing letter G 
erases the example, and produces the screen display. Notice 
how it is done with PRINT instead of INPUT in line 3100; 
a ‘hold’ statement in 3110; and the action statement in 
3120. This also contains a precaution against the error of 
using a lower case letter. Line 3120 erases the example, and 
the computer then moves on to the next lines, to section 
4000, where is the Screen display. 

Here is a similar square-drawing sequence (to contain the 
words), and the playing instructions are stated briefly. At the 
end of line 4090 is a RETURN, which sends the computer 
back to the Game section (to the line after GOSUB 3000) 
without erasing the screen display. From then on throughout 
the game the computer has no need to scan lines 3000 onward. 

At line 1000 the game starts; line 1030 is an INPUT asking 
for the first word to be entered. This is given the variable A$, 
and each of the words afterwards are given a different variable 
(B$, C$, D$, etc.) up to a total of nine words. Line 1050 
makes W$ equal to A$. This is done so that a single routine 
(at 2000) can handle all the words in turn (B$ and then the 
other. variables for more words will be made equal to W$). X 
and Y are given a value, and then comes line 1060 GOSUB 
2000. - 

In this small routine (lines 2030-2080) L is given the 
value of the LENgth of W$, and at 2040 a FOR/NEXT loop 
starts: FOR N=1 TO L (the length of W$). In lines 2050 and. 
2060 the first letter of WS is printed; in 2070 X is given the 
value of X+2; and in 2080 comes NEXT N, so that the com- 
puter goes back to 2040 to print the next letter — 2 spaces to 
the right. This continues until the length of WS is used up, 
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and then comes RETURN, to the line after GOSUB 2000, 
which in this case is 1070. 

There a second routine is started to print in blue ink the 
end letter(s) which must be used in the next word. In 1070 
X is made equal to X—2 so that the blue letter(s) will be 
printed on top of the black one. 1080 makes WWS equal to 
the right-hand letter (in this case) of WS. 1090 is GOSUB 
2100. 

At 2100 is the small routine to print the ‘carried-on’ 
letter or letters. LL is made equal to the LENgth of WW$ 
(which is just one letter in this first instance, but becomes 
more with each word entered). In 2110 another FOR/NEXT 
loop is started using the variable NN (which is: 1 TO LL). 
At 2120, using PEN 2 (blue), the letter is printed; and at 2130 
X is made equal to X+2 (to print the next letter two spaces to 
the right). NEXT NN repeats the loop if necessary (but not 
in the case of the first word). 

The phrase ‘IF LL = L THEN 1710’ is inserted at 2130 to 
ensure that if words of less than nine letters are used (I 
recommend that you try first with words of four or five 
letters) then when the last word is entered (when the blue 
letters equal the length of W$) the end routine at 1710 is used. 

This comparison of LL with L shows how well the Amstrad 
464, 664 or 6128 can cope with similar-looking variables: 
NN and N, LL and L, and even W$ and WWS are all treated 
as distinctly different. In this program the string variables 
(those with $ that can handle words) include A to I and K, 
plus W and WW. Ordinary variables (those used for numbers, 
without $) include X, Y, L, LL, N, and NN. 

To become familiar with this reliable facility do this: after 
the program is all entered, and you have RUN one game, 
ENTER ESC, for Break, and then enter directly: PRINT B$; 
“ > 1D$* ?-WWS$. The result will be three words: the second 
word you entered in the game, the fourth word, and the last 
word. This shows how well the variables are stored in memory 
until they are changed by you or by the program. In this 
program the two string variables W$ and WW$§ are continually 
being changed as the game progresses; try PRINTing them at 
different stages of the game. 

To return to the program description: at 2140 is a 
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LOCATE/PRINT statement of spaces to erase the previous 
INPUT statement, and at line 2150 a RETURN sends the 
computer to line 1110 (in the case of this first word). At 
1110 comes the INPUT for the second word, followed by 
lines almost the same as those at 1030—1090, except that the 
X and Y numbers are different, and so is line 1160, for now 
WWS$ is made equal to two letters at the right-hand end of the 
second word. 

There are nine small routines between 1030 and 1700, and 
they are all nearly identical, apart from those differences 
mentioned earlier. In the ninth word routine, however, there 
is an extra difference, for in this one instance (at line 1700) 
the computer is ordered to use PEN 2 (blue) before being sent 
to 2000 to print the word, and put back into PEN 1 on its 
RETURN. Also the previously used routine at 2100 is not 
now needed, so these three lines are omitted. When the 
computer returns from the routine at 2000 it goes on then to 
use the finishing lines at 1710 to 1730. 

This program has been explained in detail because it is a 
suitable one for improvements you can make yourself. For 
instance, one that has been carried out already is this: when 
the game was first written the end (lines 1710 onward) only 
appeared at the end of a nine-letter game. If less than nine 
letters were used the game didn’t end, but asked for the 
next word — even when the final word was already printed 
in blue, and the square was complete. I altered this by adding 
just one small phrase at the end of line 2130: IF LL=L THEN 
1710. This meant that when LL (the length of the letters to 
be printed in blue) was equal to the length of L (which was 
WS) then the game was to end. This sort of improvement as 
you write a program (but more often when it is finished) 
makes all the difference. 

One alteration you should be able to make now (if you 
have followed all the chapters in this book) is an addition to 
line 1720 offering another game. Try working it out. It will 
entail separating sections 3000 and 4000, with a RETURN 
after the CLS in line 3120, and an additional line 70 saying 
GOSUB 4000. Then, in the section at 1710 could be added 
some lines to clear the screen, and go straight to 4000 for a 
new start. 
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When writing almost any kind of program the problems 
are usually separate ones, and an experienced programmer is 
one who knows many kinds of tips. For instance, the ability 
to place a character (letter or number) at a place between the 
character spaces is easily learnt. It can be done (as explained 
earlier in this book) by using ORIGIN instead of LOCATE, 
and placing TAG at the beginning of the line, and TAGOFF 
at its end. Those two keywords enable you to use ORIGIN 
240,222 instead of LOCATE 16,22, which are both exactly 
the same location. Always remember to use a semicolon 
(;) after the PRINT statement and before the colon (:) when 
using ORIGIN for PRINT statements. 

In this present program are some tips, and one of them is 
a way of spacing out the letters of a word. Look at lines 2030 
to 2080. When the program is completely entered — and 
taped — then alter the +2 into +1 in line 2070, and then 
RUN the program. The letters of gach word will be printed 
close to each other, and the blue letter will appear on the next 
to last letter; the spacing has been lost. That little routine 
can be most useful at times. First of all give the word a 
string variable, then use lines 2030 to 2080 (without the 
RETURN, of course); giving the X and Y locations whichever 
value you like. 

Now, as an additional facility use TAG before the routine, 
TAGOFF after it, and ORIGIN numbers instead of LOCATE 
— not forgetting that semicolon. In that way you can space 
the letters half a space apart (using X=X+24), or one and a 
half spaces (using X=X+40). You do realise, of course, that 
LOCATE numbers run at X from 1 to 40, and at Y from 1 to 
25 downward, while ORIGIN numbers run at X from 0 to 
639, and at Y from 0 to 399 upward. Another point to 
remember is that the ORIGIN number must be the one at the 
top of the character, not at its bottom; there is a matter of 
16 pixels between these two points. These are the sort of 
points to look for when entering other people’s programs. 
One picks up a tip here, and another there, and together they 
build up quite a lot of experience. 
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14 REM FEEEEEEEREELEAREESEASEERES 

“A REM #44 THIHEIHG OF WORDS oe 

SA REM EKEREREKEERSRERKEPEKEEESES 

49 THK B22: INK 1,39: THK 2,11:INK 3.64 
oH BORDER 2: FAFER @:FPEM 1:ClS 

69 GOSUB 2500 

lhmo REM RRAEREKEEKREKAEE 

1616 REM d40¢0ke GAME #4E* 

1420 FEM KARRKKAEAKAEKEEEK 

1426 LOCATE 2.22: I1HPUT “ENTER A WORD 
Cho 9 lets. "GAS 

1o4a IF He="" THEM 1444 

1958 WSRAS: vaZ:'/=2 

1828 GOSUE SHG 

19° BEH-2 

14360 WHWS=RIGHTS$¢ WSs, 13 

1H56 GOB flag 

1160 FEM RREEK 2nd. WORD KEKK 

1118 LOCATE 2.22: IHPUT “EMTER 2nd. Wd 


ORD"; BS 

1126 IF 6S="" THEH i120 

1136 WS=B$: Kao: '=4 

1146 GOSUB zou 

1158 “BeH-4 

1166 WHS=FIGHTS< Ws, 2 

1178 GOSUB 2166 

WM REM ¢44EK Sed. WORD #REKE 

® LOCATE 2.22: IHPUT "EMTER 3rd. ld 
"GCS 

IF CS="" THEN 1266 

WS=C$: K=2: '=6 

GOSUE rod 5 

i Sta oN 

WHS=RIGHTS¢ Ws. Bo 

GOUSUB 2188 

260 REM EEKEKK 4th. WORD #KEKK 


Sr ta 


= 
a! 


ee ee ee te I 
Uy 
Mig 
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127g 


ORD" ; 


— ee 
ae hee 
tii 
ps 
a! 


3 Ah oh oo oT 


L 
Zt 


ee 
Cow ou i 


Os JO OL ho tr im 


— ee ee 1 
Sa a iS 


13590 
1449 
1414 
1428 
1426 
DRED" 
1444 
1459 
1468 


14° & 


1450 
1430 
158 
1518 


ORO" 5 


1328 
1339 
15468 
1559 
1568 
1278 
15268 


LOCATE 2.22: INPUT “ENTER 4th. 


Os 
IF O$="" THEM 1 
WE=DS: Hae: Se 
GOSUB ZHAY 

ait 


288 


bg RIGHT#O L849 


GOSUeE 21a 
REM #EKEK Sth. 


WORD FREER 


LOCATE 2.22: INPUT “ENTER Sth. 


iES 
IF ae THEH 13 


WS=ES: = 
COs Le on 
AskH-19 


2:'=18 
5] 
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WHS=RIGHT S$ WS, 59 


BOSUB 2143 
REM ###4#4 6th. 
LOCATE 2. 22: IHF 


iFS 


IF F$="" THEN 1 
WoPs: Mee: '=12 
GOSUB 2ae6 

we 12 


WORD KKEKK 
UT "ENTER eth, 


446 


WHS=R IGHTS¢ WS. 6 2 


BOSUE 2140 
REM #4844 fth, 


WORD Kee 


LOCATE 2.22: IMPUT "EMTER ’th. 


BS 


IF G$="" THEM 1528 


WE=GS Wee: vs14 
GOSUB 2h 
KEX-14 


HHS=FIGHTS¢ WS. 79 


GOSUB 2158 
FEM £#£4#4% Sth. 
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WORD *EAEK 


MW 


Md 


bd 


Ld 


1258 
Cee" 
16498 
1614 
1620 
1620 
1649 
1650 


at} 
Ste 


Se NY 
Smit ym Lae to hae mn 


Cane Pi 
i aye aT IR a 


—! 


“OPO DIR hh Po ho ha ha Pa ha ha ee 


T 
en ee ee a 


fi 


CS a Ge 


LOCATE 2.22: IMPUT "EMTER Sth. W 


i HS 


IF H$="" THEH Leo 
W$=HS: H=2:7=16 
BOSUE Zang 

Mean LE 
HHS=FIGHT $¢ HS. 3 a 
BOSUB 21a 


A REM FARE Sth. WORD SEE 


LOCATE 2.22: INPUT "EMTER Sth. 


i 1% 


IE aie HEN 1630 


WS=1S:; Y=18 


FEM 2: GOSuB 2h: PEM 1 


A LOCATE 2.22:PRINT SPCC 352 
3 PEM 3:LOCATE 2,22:PRINT "LAST MW 
PEM 1 


GOTO 1938 

REM £EKKKEKERKEEREEEEERRE 
REM ### PLACING WORDS £44 
RE #RREEEERSRERERREAERERK 
L=LEH« Ws 3 

FOR H=1 TOL 

LOCATE #4 

FRIMT MIO" Wut, 12 

AHAte 

HEAT WH: RETUR 

REM #¢#*% BLUE LETTERS #**x 
LL=LEH¢ Whigs > 

FOR HH=1 TO LL 

FEW 2:LOCATE #. PRINT MIOS¢ Ws 


rh 19:FEH 1 


21368 
2146 
2158 


MeM+2: HEAT HH: IF LL=L THEM 1714 
LOCATE 2.22:FRINT SPoC 252 
RETURM 
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REM ESEEEREEEEAEPEEEES 


is 
418 FEM #ee¢% EXAMPLE #4444 
rs 
5] 


ho Ooh 


<a ke 
EN Bh HE RN 


5 REM $EREEEEAEALEREEEEES 
@ ORIGIN &.144:CFRAW 258.8, 2: 
2s: DRAPE Ptionqaon ee A, -25 

2640 PEH S:LOCATE 24,.2:FRIHT "E ; 

ff PLE": FEW 1 

3H38 LOCATE 21.4: PRINT " Enber a wor 

dOuwe to": LOCATE 21, Fle "9 letter 

& longs." :LOCATE 21) eee " Then a 

qothercusing': LOCATE. 2i.?:PRIHT “sara 

© last letter, 

3H6@ LOCATE 21.4 eT " Then anothe 

reusing" :LOCATE 21,.35:FRIHT “tuo last 
letters. "= LOCATE 21,10: PRIMT " Then 
anotherCusing" : LOCATE 21.11:PRINT " 

three last letters." :LOCATE 21,12:FR 

IHT " And carrey on." 

SEPA LOCATE 21.14:PRIHT " HMotice how 
the": LOCATE 21.15:FRIHT "final word 
builds":LOCATE 21,.16:PRIHT “up as 4 

co Progress," , 

SBE0 LOCATE 2.2: PRIHT "F IF T A":LO 

CATE 2.4:PRIHT "B RF A S H":LOCATE 2, 

6: PRI “ LU & H": LOCATE 2,8: FPRIHT 
"6 FOU S H":LOCATE 2.19:PRINT "C R- 

ue! S H"' 

2030 QRIGIH 3.222: 0RAW @,.32,2: DRAWR 

2.8: DRAWF @,32:0RAWR 22,8: 0RAWR o.% 
2: DRAMR 2628) CRAWF 6. 32: CRAWP 22,800 

PAUP Ay: 

3108 LOCATE 2.24:PRIHT "Press G for 


=, 
tana! 


CRAP 
oe 


oe 


a 
, 
a40 


Eke. Sane" 
Z116 KS=IHKEYS: IF KS="" THEN 3114 
3124 IF K$="G" OR K$="5" THEM CLS 
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4000 FEM £EEEEEEESAEEEKEEEE 

4910 REM #4444 SCREEN $ckack 

4020 REM SEERKEKERKESEEEEEK 

4030 OR IGIH 2.184:0RAW 295.6. 2:0RAWR 
A,283: ORAWR 283,68: DRAWER, A, -258 
4040 FEH 3:LOCATE 23,.2:FPRIMT "“THIHE 

CF A WORD" : PEH 1 

4958 rei 21,4:PRIHT " EMTER a wor 

dOuF to": LOCATE 21,5:FRINT "3 factor 

3 teas " 

HEA FEW 2:LOCATE 21,6:FPRIWHT " Think 

al arother": LOCATE a le PRIWT "incr 
ame length &":LOCATE 21,3:FRIHT "s 
ate last letter ).":LOCATE 21,9: PRINT 
". EHTER THAT. ":FEH 1 

4070 PEH 3:LOCATE £1,16:PRIHT " Thin 

kof another": LOCATE 21.11:FRIHT "wwe 

rdQsame lenath 6": LOCATE 21.12:PRIMT 
"same 2 last letters ?":LOCATE 21.1% 
-PRIHT " ENTER THAT." :=FEN 1 

4954 LOCATE 21,.14:FPRIHT " Think of a 
nother": LOCATE 21,15:FRINT “worded sam 

e length &4":LOCATE 21,.16:PRIHT “same 
2 last letters o":LOCATE 21,.17:PRIHT 
" EHTER THAT." 

4490 PEH 3:LOCATE 24.19:PRIHT "RAHD & 
O OH": PEM 1: RETURH 
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awe 244 JO; 9 Ssaurg 


"ssauboud noh se an 
SPLling pazom Teurys 
ay mow aot4zon 


‘Uo AAAS Puy 
“SJIQQRATL FEST Baawyy 
GULSM,AGYZOUS USELT 

"S.A7IRPITL FSET My 
BULLS, AMAYZOUe WS 
'ag449T Q25FT Owes 
GULLS, AAYQOUP USUTL 
"buoy, §$71449493T & 
Oo} dnypwom 2 wa ZU 


dq Tdad Aw xk Gf 
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Chapter Nine 
CANYON CROSSING 


The program in this chapter, “CANYON CROSSING’’, has 
been used to gather together many of the tips and routines 
mentioned in previous programs, together with extra hints 
and ways of doing things on the Amstrad 464, 664 and 6128. 
Most people will find this game fascinating, for in it you have 
to guess a word, letter by letter; each guess moves a tight- 
rope walker a little farther across the canyon, but seven 
wrong guesses causes him to fall off the rope into the river 
(from which he can escape to try again). 

During the planning of this program there were a number 
of objectives: a reasonable scene of the canyon and tight- 
rope; a means of entering each letter in turn into its proper 
place; and a score that would carry on from one try to the 
next. The list was written first, so that it could be referred 
to during the writing of the program; and then the structure 
or skeleton of the program was written down. Lines 10 
onward are for the initialisation; 1000 for the game; 2000 
for the small routines; 3000 for the DATA; 5000 for the 
screen display (leaving space for DATA); and 6000 for the 
WINDOW. 

This last section will be explained first. It was visualised 
that the game title and the score should remain on the 
screen from one try to the next, and the simplest way to do 
this was to use the WINDOW facility to contain these, and 
keep that WINDOW separate from the game itself. Therefore, 
after the INKs and BORDER had been defined came GOSUB 
6000 (line 60), and that section was written next. 

In 6030 the WINDOW extent was defined, together with 
the INK to be used; notice how this is done: the number of 
WINDOWs available start at 0, so by defining hash 1 the rest 
of the screen was left as hash 0 by default. This would mean 
that there would be no need to use the hash sign (#) for the 
main screen LOCATE/PRINT statements, and only use hash 1 
where that was needed. This WINDOW is defined as just the 
top three rows right across the screen. The PEN number for 
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hash 1 is defined as 2. In line 40 it will be seen that INK 2 is 
defined ‘as 2 colours, so it will flash. However, the two colours 
chosen are 20 bright cyan, and 23 pastel cyan; so close 
together in the scale of colours that the flashing will not be 
too pronounced. The reason for this. will be explained when 
we come to the scene. 

Line 6040 prints the game title; notice how the hash sign 
is used: after LOCATE and also after PRINT. In 6050 two 
words are printed, and there are 12 spaces between them. 
This places them correctly to receive the scores. In 6060 
and 6070 the wrong. scores (WR) and the correct ones (RI) 
are given variables, each worth O, and these are printed in 
place. Line 6080 is RETURN, to the line after 60. 

Here, at line 70, is a KEY defining line. When writing a 
program that contains a WINDOW, and when needing to list 
the program to inspect or alter something, it is annoying to 
find that it scrolls only in the WINDOW. Therefore this line 
is entered. It uses the full-stop in the separate block of 
numbers. The number of that KEY is 138 (this will be found 
on page 15 of Appendix 111 of the manual) and I find it the 
most convenient to use. You may wish to use a different 
KEY. With this line in place it is merely necessary to press 
this key (after ESC) to get the list on a full screen. Note the 
way it is defined: the part between the inverted commas is 
the instruction. 

Line 80 is GOSUB 5000, which is the screen display 
section, and uses all the screen except for the top three lines. 
This must be understood thoroughly, for the LOCATE. Y 
numbers now start as 1 where 4 used to be, and go down to 
only 22. That is: the old number 4 is now number 1 (for Y 
numbers only). Consequently if you are using a plotting 
board on which to lay out the screen, it is best to use a board 
with the Y numbers down the left-hand side numbering: 
1, 2, 3, 1, 2, 3, 4, 5 — 22. Then, when you need to use a 
LOCATE without a hash sign (this will be for most of the 
screen) the Y numbers can be easily read from the board. 
This WINDOW change of LOCATE Y positions does not affect 
the ORIGIN/DRAW statements. These, used to draw the 
canyon and the river, will still use the entire board numbers. 
Make sure you understand this thoroughly. 
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Line 5030 emphasizes this matter, for the default 
WINDOW is defined there as: 1,40 (for the X numbers) and 
4,25 (for the Y numbers 1 to 22). Lines 5040 to 5170 are all 
ORIGIN/DRAW statements that produce the canyon and 
river. Line 5090 draws the rectangle around the moves of 
the game; it uses PEN 1 (as is shown by the command: 
DRAW —296,0,1: that last 1 being the colour). Lines 5100 
to 5160 (using PEN 2) draw the river, and herein lies the 
need for the flashing colour: to provide some semblance of 
movement to the river. Line 5170 (using PEN 1) draws the 
tight-rope. After that come lines 5180 to 5220 detailing 
LOCATE/PRINT statements for the wording on the right and 
in the rectangular panels, and lines 5230 and 5240 that draw 
the surround to the scenery and the moves; notice how the 
top border is produced: STRINGS$(40,238). Line 5250. is 
the RETURN — to the game section at 1000 onward. 

This starts at 1030 with RESTORE 3030, and is followed 
by four lines that select a word (randomly) from the 210 
words that are in DATA, at 3000. This is a reservoir of words 
that, so far, contains 30 words starting with A, followed by 
30° each of B, C, and so on to G; that is 210 words in all. 
Line 1040 B=RND#210 refers to that, and if more words 
are added to the DATA, then that 210 must be altered to 
correspond, 

I suggest that one improvement you can.make easily to 
this program is the enlargement of the DATA section by 
including all the letters of the alphabet, making 780 words 
in all. Of course line 1040 must be altered at the same time, 
but that is all. One further point about the DATA words in 
this game: if you do decide to use more words (or different 
‘words) make sure you do not add any words that have a letter 
repeated within them. For instance: LETTER would not be 
any good, whereas LATER would. This is because in line 
2640 K (the number of letters entered) is compared with L 
(the length of A$) in order to find the completed word. That 
line would need a different comparison to match the word if 
two or more letters were entered at one go. There.is plenty of 
room for more words between 3240 and 4990. 

Line 1040 makes B equal to a randomly selected word from 
the 210 in DATA. 1050 makes C equal to the length of that 
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word; 1060 READ A$ picks up the word and gives it the 
variable A$; and 1070 NEXT C makes the FOR/NEXT loop 
(1050 to 1070) repeat until it is all there. That is a perfect 
little formula for selecting a word, and putting it in memory 
with the variable AS. 

Then comes 1080 (which is the length of A$) and in 1090 
—1110 are three lines that print dashes (CHR$(45)) to equal 
the letters in A$. Note the simple way this is done: 1100 for 
F = 1 TO L:B$=STRINGS(F,45):NEXT F. The variable F is 
made equal to the number of letters in the word. BS is made 
equal to STRINGS(length of F) of 45 (which is CHR$(45) 
from the Amstrad list of characters — a dash). It is not 
necessary to include the letters CHR$ in such a quotation; 
STRINGS$(F,45) is equivalent to STRING$(F,CHR$(45)). 

In 1120 a number of variables are given values to be used 
in the program. Two are used in 1130, where an INPUT asks 
for a letter, which is given the variable Z$. 1140 makes sure 
that if you inadvertently use a lower case letter it is converted 
to a capital letter. Then come two FOR/NEXT loops to 
compare Z$ with each letter of A$ (the randomly selected 
word). The first one (at 1160) sends the computer to 1300 
if the letter matches one in the word; the second one (line 
1190) sends it to 1400 if it does not match. We will examine 
these in turn. 

In line 1300 the computer locates the position to print a 
correct letter, and prints it there. It is then sent to 2400, 
which is the section that prints the letter in its correct place 
(in the row. of dashes), 2430 establishes X as 23, and in 2440 
INSTR searches A$ for the presence of Z$ (the entered 
letter), starting at its first letter: IF INSTR(1,A$,Z$) > 0. 

The signs ‘ > 0 ’ means more than nothing, or ‘IF the 
letter is present’. This is one of the ways in which computer 
language is difficult to grasp at first: ‘if the presence of the 
letter is not equal to nothing’. It doesn’t always seem to be 
sensible — but it works. On examination one gets a clue: 
after all, two negatives are supposed to equal a positive, 
aren’t they? Just worry over it a little, and it begins to 
make sense. 

The next line, 2450, starts a FOR/NEXT loop, using 
P=1 TO L. Now L is the length of A$ (this was established 
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in 1080), so P equals each letter of A$ in turn. 2460 locates 
this particular P + X—1 and Y+5 (that is the particular dash 
that replaces that letter), 2470 says that if the particular 
position of P in A$ is equal to the letter entered, then print 
it there. 2480 makes a SOUND and then comes NEXT P, 

In 2490 is K=K+1. Now, in 1120 K was given the value of 
0; in 2490 (when a correct letter is printed) the value of K is 
increased by 1. Then comes GOSUB 2600, where is a routine 
to establish whether or not the number of K is equal to L 
(the length of. A$). If it is, then the computer goes to 2660; 
if not, it RETURNSs to the line after the one it just came from 
(2490); that is to 2500, which is another RETURN; this time 
to 1320. 

This matter of RETURN, which always sends the computer 
back to the line after the one it came from, becomes difficult 
to follow when one GOSUB/RETURN loop is nested inside 
another, but with care in following it through, the program- 
mer will find that the computer never makes a mistake. 

At 1320 is GOSUB 2000. Here is the routine for moving 
the man along the tight-rope; just one step at a time. It is 
used for both the correct and wrong letters, and is printed in 
what I call the ‘Transparent’ mode: that is it does not 
obliterate the characters that already exist on the screen at 
that spot. This is achieved by using: “PRINT CHR$(22)+ 
CHR§(1)’ at the start of the routine, and ‘PRINT CHR$(22) 
+CHRS$(0)’ at its end. 

In line 1120 U and V were given coordinates for the 
position of the man (CHR$(248)) on the tight-rope, and in 
2030 a LOCATE/PRINT statement places him on the wire. 
2040 is a pause to ensure he stays there long enough to be 
seen, and in 2050, at the same coordinates, he is erased — by 
using PEN 0, which is the background (or screen) colour to 
print him. 2060 moves his U coordinate forward by one space 
(U=U+1), and 2070 prints him in the new position — one step 
forward. 2080 is a RETURN (to 1330) to a GOTO 1130 for 
a new INPUT asking for a letter. 

That explanation of a ‘Correct letter’ move has been gone 
into in sufficient detail to help anyone to follow the reason- 
ing that must always be used when trying to make many things 
happen as the result of just one entry. If you do not yet 
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thoroughly understand it, then go back a page or so, and go 
over it again and again, until it is clear. Only in this way can 
you master the involved procedures needed. 

If you have entered a wrong letter in response to the 
INPUT in line 1130, then line 1190 directs the computer to 
1400. Here, a different set of location variables are used: 
M and Y. This is so that each succeeding wrong letter can be 
printed in succeeding positions. In 1120 M was given the value 
of 23. In 1400 Y is given the value of Y+3 (one position 
lower than the correct letters), and Z$ is printed there. M is 
then increased by 1 (so that the next letter is alongside the 
first, and N (which was 0 in 1120) is also increased by 1). 

In 1410 comes a line that decides when too many wrong 
letters have been entered: IF M=30 THEN 1500 (we will 
explore 1500 later). It will be realised that if M is originally 
23, then the addition of 7 wrong letters will make M=30. 

In 1420 is a SOUND, which is different than the Sound 
made for a correct letter. It is followed by GOSUB 2000, 
which is the section to move the man farther along the wire 
(which we have already dealt with), followed by GOTO 1130, 
the INPUT asking for another letter. 

The computer continues to RETURN to 1130 until either 
one of two conditions is met: in 2640, IF K = L (this is in 
the correct letter sequence); and in 1410, IF M = 30 (in the 
wrong letter sequence), We will deal with the correct letter 
sequence first. IF K = L (this has been explained earlier, so 
if you are still in doubt go back to it) then GOTO 2660, 
which says GOTO 2800, the Finish-off routine. 

In 2830 L is again defined as the LENgth of A$, and a 
FOR/NEXT loop starts by defining U (which is the X value 
for moving the man) as 8 (the position on the board) +L 
(the LENgth of A$) +N (which in 1400 was increased by 1 
every time there was a wrong letter). Thus making 8 equal 
to itself plus the length of the word and plus the number 
of wrong letters, to 22, which is the end of the tight-rope. He 
is left there (line 2880) and a space is printed at 23,16. In 
2890, using red, “That’s right’ is printed. In 2900 two lines 
are cleared with a PRINT SPC(17) statement, and in 2910 a 
SOUND is made; notice the way it is done so that a rising 
series of notes is delivered: a FOR/NEXT loop to define the 
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actual notes (in the second position after SOUND). We will 
ignore line 2920 for the moment, except for its final state- 
ment: GOTO 1530. At 1530 is a sequence of six lines to give 
a repeat game. This will be explained later. 

The alternative finishing sequence, mentioned earlier, lies 
in line 1410 IF M=30 THEN 1500. In 1500 is a line to clear 
four lines in the small panel. In 1510, in red, is printed “He 
fell’, and in 1520, in blue, is printed a star, the correct word, 
and another star, followed by GOSUB 2200, which gives an 
impression of the man falling into the river. 

Line 2230 starts a sequence of movement preceded by the 
transparent mode once again; it erases the man. 2240 gives O 
the value of 50 (for use in SOUND), U gets the value of 17, 
and a FOR/NEXT loop is started that gives V the value of 7 
TO 16 (down the screen). 2250 prints the first man off the 
rope, there is a slight pause at 2260; in 2270 the man is erased; 
in 2280 is the first note of the SOUND: O is made equal to 
O+10; and NEXT V goes back to the start of the FOR/NEXT 
loop in line 2240, to continue printing and erasing the man 
until V is used up. The SOUND being made gets lower in 
tone as the man falls. Then, in 2290 comes a score line (to 
be explained later), and in 2300 a RETURN to 1530 — where 
is the offer of another try. 

When describing the WINDOW section at 6000, it was seen 
that line 6050 printed ‘Wrong’ and ‘Correct’ in the small 
WINDOW. 6060 gave the variable WR the value of 0, and this 
was printed at 9,3 in the WINDOW; RI was also given the value 
of 0, and this was printed at 29,3. These are for the scores. 
In line 2290, after the man has finished falling, WR is made 
equal to WR+1, and that is printed at 9,3. In line 2920, 
after the man has successfully crossed the tight-rope, RI is 
made equal to RI+1, and this goes to 29,3, after CORRECT. 
In this way, whether the word is guessed correctly or not, one 
is added to the appropriate variable, and, because this is 
printed in the WINDOW at the screen top, it is not erased 
when you answer Y (yes) for another try in answer to the 
INPUT in line-1530. In response to Y there is a command to 
clear the larger WINDOW only (notice how this is worded: 
THEN WINDOW 1,40,3,25:CLS:GOTO 80). In response to 
N (no) the screen is cleared, leaving the title and score, while 
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‘THANKS FOR THE GAME’ is printed in the centre of the 
screen. If you should use RUN now (after ESC, of course), 
you will find that the score is put back to 0. 

In this chapter the program ‘CANYON CROSSING’ has 
been explained at length so that the veriest beginner should 
be able to understand how each section works. Even more 
advanced programmers (who may often have used, but not 
understood some routines), may find them of interest. 


16 FEM EXERKREEKEEEELEERESESEE ESE 

26 REM #¢4% CAMYOH CROSSIMG 444k 

28 REM ¢4EREEEERSREREREREREREEE SE 

40 IHK @.12:IHK 1,25: 1HK 2. 28,23: [HE 
sat 

TH BORDER 12:PAPER @: PEW 1:CLS 

eB GOSUB Beee 

‘8 KEY 135. "WIHOOW 1.46,1,25"4+CHR Se ft 

23 

29 GOSUE Sea 

1680 REM $4ERRRREEAEKEEK 

1610 REM fos GAME AEE 

1626 REM AASEEEEAEAEEEX 

1620 RESTORE 2a30 

14448 B=RHD#21a 

1030 FOR C=8 TO B 

1060 READ AS 

18° HERT C 

1626 L=LEHC ASD 

1436 LOCATE 23.21 

1169 FOR F=1 TO L:BS=STRINGSOF,459:H 

Esl F 

1116 PRIHT 6S 

1126 ases Sle: Has: Vee M2: Kae: Hae 


1120 LOCATE 4. ¥: INPUT "GUESS A LETTE 
R"i2e 
1148 Z$=UPPERS( 2 > 
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1150 FOR F=1 TOL 

tie IF 2$=MIDS¢AS,P.19 THEN 1200 
11°93 HEAT PF 

1128 FOR F=1 TOL 

1130 IF 28¢°MIDS¢AS.P,1% THEM 14a 
1208 HEAT P 

1288 LOCATE 4. ‘/+2:PRIHT 2% 

1319 SOSUE 24g 

1226 GOSUB Zane 

1338 GOTO 1138 

1498 LOCATE 1: MPRIHT 293 ¢M=M+1:H= 
H+1 


1416 IF M=Se THEM 1S6a 

1420 SOUHD 1.488: GO5UB cone 
1420 ela 1120 

1209 weSS: FOR =16 TO 13:LOMATE #7: 
PRINT SFr 1? 3: HE? aT / 

1514 PEH S°LOCATE 25.17:FRIMT "HE F 
ELL": FEH 1 

Lace PEW 2: LOCATE ase 16:PRIHT "#4 "GA 
$i" #€£": PEW 1: GOS WHE Se 

1539 LOCATE 23.19: IHPUT "TRY AGAIMG 
“Ho" GOS 

1244 IF fg="" THEH 1540 

1850 IF O$="" OF Os="5" THEN WIDOW 
1:46,.4,.25:CLS:G07T0 36 

Sea IF f¢="H" OF G¢=""" THEM CLS 
1270 LOCATE 18.12:FRIMT "THAMES FOR 
THE GAME" 


1858 GOTO 1558 

ZO00 FEM EEEKEKEREREREEEREEEEEES 

2616 FEM ##*& MOVIHG THE MAW £AE 

2H2A REM KERRREEEREREEEEEEEREKE 

2630 PRIHT CHR 22 9+CHR$¢ 19:LOCATE WU 
AYOPRIAWHT CHES! 243) 

2040 FOR Wel TO Sh8:HEXT b 
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2626 FEM @:LOCATE U.¥:PRINT CHRS* 243 
2° FEH 1 


ease U=l+1 

2Br@ LOCATE U.S PRIWT CHES 2430: PRIW 
T CHRS¢ 22 3+CHRS¢ Oo 

2658 RETURM : 

2206 REM EEXEEREEPEKEEEPLEELEKAEEL 
2218 REM sk MAW FALLIWG eR 
222d REM RRREREREEEEEREEAEERERER 


2238 FRIMT CHRS¢ 22 04+CHRSC 10: PEN @: Fo 
FE oU=11 TO 21:LOCATE UV: PRIMT CHR 2 
$50:HEAT U:PEH 1 

2249 O=5g:U=17: FOR Var To 16 

2229 LOCATE WU, Wo PRIHT CHES 245 4 
2269 FOR W=1 TO Sa@:HEXT WW 

eerQ@ PEM @:LOCATE U.V:FRIHT CHR S¢ 24 
2oPEH 1: PRIHT CHSC 22 3+ CHRS 8 3 

feo SOUND 1.0.18: 021 +1: HEAT \ 
2296 WREWE+1:LOCATE #1,5.3:PRIHT #1, 


22660 RETURH 

240 FEM HEEREERAEKAEEEEEEEEEEEREER 
2414 REM ##+44* PLACE LETTERS *£#4K* 
2429 FEM £EXEERERAKELEEEEEEEEREEES 
2434 M=23 

2449 IF INSTRC1,AS, 2% 920 THEN 245a 
2420 FOR P=1 To Ll 

2468 LOCATE P+-1,'/+5 

24°79 IF MIDSCAS.P.19=2% THEH PRINT 


ss 


e450 SOUHD 1,28 
2498 K=K+1:GO5uU 
2200 RETURY 

ZEA REM KEREREEEERKEREKESEKESERERES 
2610 REM $4444 COMPLETE WORD #bKE 
62H REM EERKKRAREREREKAEEREKEEEES 


8. 5:HEAT FP 
WB Sec 
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L=LEH¢ AS 2 

IF K=L THEM 26688 

RETURH 

GOTO 23ha 

FEM HESEEAELAEERREEEEEREER 

REM #4444 FIHISH OFF KEKEF 

FEM EKKEKEEEKEKEEFKEFEELLEKES 
L=LEHC AS?: FOR U=e+l+H To 22 
PRIHT CHRS¢ 22 9+CHRS¢1>:LOCATE U 
RIHT CHES¢ 245 5 

FOR W=1 TO She@:HEXT 

FEM @:LOCATE UV: PRIHMT CHES! 246 
Ho oL:FRIHT CHRS¢ 22 34+CHRS Go 

HEsT W 

LOCATE U.ViRPRIHT CHRS¢ 243 9:LOCA 
3.16: PRINT SPL 1? 3 

PEW S: LOCATE 23.17:FPRIMT "THAT? 
FIGHT ":PEH 1 

BH FOR Y=18 TO 19:LOCATE 23.1: PRIW 
SPCC 17): HEAT. ‘¢ 
ia FOR G=189 TO 5@ STEP -S:S0UHO 1 
(Gel: HEAT G 

2520 PI=RI+1:LOCATE #1,29,.3:FRIHT #1 
»RI:GOTO 13536 

SHH REM EEREREKEEEEEREEREREEEX 
3616 FEM #k#44 DATA STORE *#*4*4 

BH20 REM KEKEKKKEREEEELEER EERE 

3836 DATA ABDUCT. ABOUT, ABHOR. ABICE.A 
BOOMEH. ABJECT, ABJURE. ABLUTIOCNW. ABSOLU 
TE: ABOLISH 

3844 CATA ACERBITY.ACETIFY. ACOLYTE.A 
COUTRE. ACK IMO. ACROHW Yt, ACTIWG.ACTIY 
E. ACTOR. ACUITY 

S858 DATA ADHESION. ADIPOSE, ADJOURHM, A 
CIUHCT. ADMIRE. ADMOWISH. ADOPTIVE, ADOR 
H, ADULTERY. ACVERS IT? 
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TER. BANGLE, RANTS TER 

3879 DATA BAHERUPTCOY. BAPTISM, BARELY. 
BAR ITONHE. BAROHETOC,'. BAROUCHE. BASHFUL. 
BASIMET. BASKET. BAST IO 

3839 CATA BEAUFORT, BERCOH, BEACIHG. BE 
HED. BEAUTIFY. BECKOH, BEDOUIM. BEGOHIA, 

BIOGRAPHY. BIOFLASEH 

3830 DATA CABIMET. CABRIOLET. CADGER.C 
AIR. CALOROM, CALORIE. CALUMET. CALY PSO 
CAMEO. CAMISOLE 

3169 CATA CEAMOTHUS. CECAR. CEHOTAFH, C 
EMTAUPF. CEHTRALISM. CHAGRIN. CHALET. CHA 
MF TOW. CHAMDLER, CHAPEL . 

3118 DATA CHEMISTRY. CHIEFLY. CHIMERA. 
CHIHTS. CHISEL, CHIWALROUS, CHLOR IMATE. 
CHOLERA. CHUTHE'?. CIMEMA 

2128 DATA CAIHTY, CAISY. CARLING. GAUGH 
TER. CAYLIGHT. CERCOH,. DEBRUCH, DEBOHAIF 
»DECAPOD, CECIMAL 

2138 DATA DEFAULT, DEF IAHT. CEFORMIT''. 
DELIGHT. CELUS ITOH. CEMOCRAT. CEMIAL. CEH 
2ITY.CEPART. CEFOSIT 

3146 DATA CIAGHOSE, CIALECT. CIALOGUE, 
CISCOVERY. CISCOUHT. COCILE. COCTRIMAL» 
DOLPHIN. COMIMATE. CRALIGHT 

3156 CATA EARTHLY. EXRWIG. EBONY. ECHID 
HAL EDICT. EDITOR. ECUCATIOH, EGOTISM, EG 
YPTIAM. EIGHTY 

2164 CATA ELASTIC, ELBOW, ELDRITCH.ELO 
CUPARY. ELYSIUM. EMBARGO. EMBRMK. EMBLAS 
OH. EMBOD'Y. EMBRYO 
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2178 DATA EMBR OHMIC, EMPATHY. EMPHATIC 
/EMPLOY. EMPORIUM, EMPTY, EMULSIFY. EMCR 
WET. EMOOW, EMFOLD 

2128 DATA FABLE. FABRIC. FACETIOUS, FAC 
TOR’. FEAST. FEIGH, FELOWY. FEMHCIHG, FERA 
L. FESTIVAL 

3198 CATA FETLOCK, FEUDAL, FIBULA. FICK 
LE, FIOCGET.FIELO, FIER’. FIGHENT.FIGURA 
TIVE. FILANEMT 

3264 DATA FLAMING. FLANGE.FLASHING. FL 
EMISH, FLIGHT, FLOATING. FRAGMENT, FREAF. 
»PFRESCO.FRIGHTEH 

2218 DATA GAELIC, GAIHFUL.GALOSH, GAME 
IT. GAMBOGE, GAHDER, GAHTR. GAOLER. GARD 
EH. GARLIC 

2226 DATA GARMEMT, GEISHA, GELATINOUS. 
GELCING, GEMIUS. GEMOR, GENTIAH. GERMAH, 
GHASTLY. GHERK IM 

3230 CATA GLABROUS. GLACIER, GLAMOUR. G 
LAZIEF. GLEAH, GLIMPSE. GLOAMIHG, GLORIF 


Y. GLOWER. GHARLECD 

SE REM RERREREREERERERERERREE 

TA16 REM #4444 DRAM SCEME seas 

SMS REM FRERERERERERRARERREERE. 

2838 WIHOOW 1,.46,4.25 

sH4o ett ae 6.42: 0RAW 122,125, 3: DRAM 
Eo16,32:DRAWF 6,596:DRAWR -16. 16: CRAM 
R -32, 16 DRAWR -Sé. 6 

SH5@ ORIGIH 144,304 :0RAM -144,6: ree 
IH 144.2600: DRAM -144,0:ORIGIH lee. 1¢ 
6: DRAM -129.8:0RIGIM 96.144: ORAL 36 
PG ORIGIH 64,112: ORAM -64,G:0RIGIN 2 
2.88: DRAW -32,4 
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“H60 ORIGIH 32. 38:0RAW 16,-32:0RIGIH 
e4.112:0FAW 16.-164:0RIGIN 96.144:0 
RAW 16.-Pré: ORIGIN 125,.176:0RAN 16.-6 
S'ORIGIH 144, 265:CRAW 16,.-36:0RIGIH 

144, 3H4: DRAW 16.-36 
“876 ORIGIN 176, pas Al 144.144:ORIGI 
H 328.144: 0RAW 16,32:0RIGIN 326,176: 
CRAW 8.96: 0RIGIH 36, Bee CRAM -ed. 64 
‘ORIGIN 326.272: 0RAW -16,.-80:ORIGIN 
384, 344:CRAM -16.-84:0RIGIH 244, 364: 
CRAM S32 
pal te a ORIGIN 272.336: DRAW -14,-52: OR] 
GIH 272, 336:0RAW 36.8:0RIGIN 284, 304 
‘DRAM 64. 4:ORIGIN S36, 272:0RAM 32,0: 
WRIGIH 336,176: 0RAW S2.8:0RIGIH 2a, 
oe Fale nie a ea ale 2r2. 36: DRAW 43, 
J32:ODRAW 112.8:0RIGIH 24 


2° DRAW -296.0.1:DRAW 

PR a. 112: DRAM 246.0 -CRAWR O,-112 
S188 ORIGIN S@.0:0RAW 32.64.2:0RIGIH 
Lies » 04: DRAHF 46. Lot MRIGIH 162,123:0 
Al 2. 93@:0RIGIH 328.148: 0RAW 6,44:0R 
IGIN S28, 194: DRAIN -16.32:0RIGIM 304, 
224: DRAW -36, lie | 
3118 ORIGIN 154.8:CRAW 32.64.2:0RIGI 
H 156.84: DRAM 24, 40: NRIGIM 188,152: D 
RAW 8.49: ORIGIN 176.224: O0RAW -12.13 
2120 ORIGIN 144, 32:0RAW 32,43: 0RIGIH 

132, 112: DRAM 16.43 :O0RIGIH 203,192:D 
RAW -1é6.4¢5:0RIGIN 176.256:0RAW -16.1 
5 
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3H ORIGIN 166.15: 0RAW 24,.45:0RTGIH 
2H. 64:DRAW 24.45: ORIGIN 232.144: OF 
AW @.32:0RIGIH 224,263: 0RAW -16, 32:0 
RIGIH 192.256 :0RAW -15.16:0RIGIH 16a 
6258: CRAM -16,16 
2148 ORIGIN 134.15 :0RAW 16. 32:0RIGIM 
222.48: 0RAW 16,46 :0ORIGIN 245.112: 0R 
A 3. 32:ORIGIN 256,175: 0RAW -18,32:0 
RIGIM 244, 224:0RAW -16.24:0RIGIN ae 
sere‘; CRAM -1l6é,16:0R1GIW 176. 3264: 0RAW 
= Losi 
2158 ORIGIH 2r2.96:DRAW S. S2:0RTGIM 
2°4.144:0RAW @, 32: 0RTGIH 272, 132: DRA 
Mo -16.32:0RIGIM 255,248: 0RAW -S2. 32: 
ORIGIN 285. 255:0RAW -16.16 
S168 ORIGIM 292.122: 0RAM 4.34: OR TGIH 
312,158: 0RAW 6,32:0RIGIM 380.176: 0 
AW -12. 32: 0RIGIH 286, 224:0RAM -16.16 
SORTGIN 256.264: 0RAW -16,16:0RIGIH 2 
24.258: 0RAW -16.16:0RIGIN 152. 328: DR 
Al) -18,16 
J1°8 ORIGIH @, 
a 16:DRAWF 2 


232: DRAW 12.6.1: 0RAUR 
24,0: 0R AWE @,-16: DEAR 
Sa, ORIGIH 1L28.256:0RAW -32,-16:0F1 
GIN 252.255: 0RAW Be,-16 
2189 LOCATE 25.3:FRIHT “Guess a word 
fo": LOCATE 25.4:PRIHT "hele a man oo 
ver"<LOCATE 23.5:PRIHT "the tisht—ro 


40 LOCATE 26,6:PRIHT "A wrong" 
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S264 LOCATE 26. 7:°FPRIHT “letter cause 
es": LOCATE 26.8: FRIHT “trouble. "=: LOCA 
TE ae "SEVEH LETTERS" :LOCAT 
E 27. 12:PRINT "WROHG ARE" 

S210 LOCATE 23.14:PRIHT. "FATAL" 

Sec LOCATE 31.18:PRIHT CHRS¢ 2425; " 
CORRECT": LOCATE 33.19:FRINT CHES 242 
Qa" WROHG" 
ees LOCATE 1,1:FRIHT STRIMGS$¢ 46,238 
2 

S249 ORIGIN 8. 336:0RAW @,-326: 0RAWR 
B39. 6: ORAWR G. S36 

S28 RETURH 


Ptetcls) FEM EREKREERAEEEELERER 

SA1@ REM ARR WIAD REE 

6620 PEM RAREERKERREEAEEEEE 

SO30 WIHDOM #1.1.48,1.3:PEH #1,2 
BH44 LOCATE #1, 3.4: PRINT #1,"4 # 
AH Y OW CRASS SING * K" 
SHSM LOCATE #1,2. 3: PRINT #1. "WROHG: 


DORRECT:" 
SMEG WR=H:-LOCATE #1,35, 2: PRINT #1-0F 
APO Rl=a@:LOCATE #1.29.3:FPRINMT #1.F1 
SHS RETURN 
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Chapter Ten 


PRINTING A SCREEN DISPLAY 
ON THE DMP1 


This final chapter is devoted to explaining a BASIC Screen 
Dump program; one that will produce a black and white copy 
of any screen display on the printer. Because it is written 
entirely in BASIC, and entails a great deal of storing into 
memory, it is quite slow in action (it takes about ten 
minutes to produce a full and detailed screen display). On 
the other hand it is simple, and very easy to manage. 

The program (at this chapter end) works perfectly on the 
DMP1, but might need some alterations to work on other 
printers. It has been placed at lines 50000 to 50270, so that 
it will be well above most programs, and therefore can be 
MERGEZ4 easily. It is quite short, and easy to enter, but it 
must be typed in éxactly as shown in the print-out listing. 
This, like all the listings in this book, is printed on the DMP1 
from a working program, so if it is copied exactly it is bound 
to work. If errors crop up when it is RUN, then they must 
be typing errors, or faults in the computer or printer. We will 
describe the program first, and how it is used to obtain the 
screen dump later. 

Line 50030 is a REMinder of the entry to be made in the 
program to be copied (explained later). 50040 defines the 
array to be set up in the computer to contain one printer line 
of a 320 bit pattern; it is given the variable A%. At this point 
it should be understood that the computer, when printing any 
character on the screen uses 8 rows of bits (from top to 
bottom of the character). You have met this characteristic 
when making “User Defined Characters” with the aid of 
SYMBOL. The printer, because of the way it uses its pins, 
uses 7 rows of bits. To obtain a representation of whatever is 
on the screen, the computer scans the screen in 7 horizontal 
rows; places that in memory, and then proceeds to print (from 
left to right) all the bits it has in memory. It is this 
memorising that takes all the time; the printing itself is fairly 
fast. 
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Line 50050 is needed to prepare the computer for dot 
graphic printing. If it was not decreed as 255, a default width 
of 132 would be assumed, and that would not be sufficient. 
50060 sets the variable T at 413. In 50070 a FOR/NEXT 
loop starts using B%=0 TO 28 (28 is the number of rows of 7 
bits each, from top to bottom of the screen). In 50080 T 
is reduced by 14, and in 50090 another FOR/NEXT loop is 
started for C=0 TO 319 (the number of dots from left to right 
in the row). : 

Then comes 50100 GOSUB 50200, and there we have the 
search routines that use TEST. Lines 50200 to 50260 define 
the $1% to S7% as the contents (in dots) of each of the 7 
rows. It will be seen that T reduces by 2 in each row, and that 
each succeeding row is multiplied by 2, 4, 8, 16, 32, and 64. 
This goes into memory, and 50190 RETURN sends the comput- 
er back to 50110 where A%(C%) is now given the value of all 
those S1% to S7% lines. The NEXT in line 50120 loops back 
to 50090 (FOR C%) so that all the S% lines are included. 

In lines 50130 to 50150 come the PRINT#8 commands to 
the printer. CHR$(27) and CHRS(75) is a graphic printing 
specification; CHR$(2) is a line feed and carriage return; and 
CHR$(64) prepares the printer for 320 bits~to print. Lines 
50140-50150 do the actual printing with a FOR/NEXT loop 
using D% 0 TO 320. 50160 NEXT loops back to 50070 to 
start the sequence for the next line of printing, until all the 
rows are complete. 

Line 50170 is a command to finish all dumping, and to 
reset the printer to its original mode (for listing or text); 
50180 erases any residue of graphic printing commands from 
memory, and 50190 is a RETURN to the main program: to a 
line that has yet to be explained: 50030 REM. 

If you have now entered this program correctly, and have 
saved it on tape, you will want to try it out. We will use the 
program CROSS-JOIN WORDS (Chapter Seven) as an 
example. Use MERGE “”’ to enter it; do not use LOAD “”’. 
Now RUN that program, and press G to get the game display 
on the screen. This is what we shall print out on the printer. 
To do this LIST the main program until you reach line 1040. 
This is the INPUT asking for a word, and it stops the computer 
until a word is entered. It is the position we want. 
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Because INPUT holds the computer for a word, we must 
first of all alter INPUT to PRINT, and then delete the semi- 
colon and variable (;W$). Then enter a new line (the one that 
is in the REM line at 50030). So the line is: ORIGIN 0,0: 
GOSUB 50000:END. The ORIGIN command is essential to 
put the computer into graphic mode, and the 0,0 is needed 
to locate the graphic cursor at its resting position. 

Then comes GOSUB 50000, which sends the computer to 
the new DUMP program, and, after ten minutes of waiting and 
printing (28 times) the word Ready will flash up on the screen; 
the computer will have gone back to the main program, and 
will have found the word ‘END’. Don’t forget that if you 
want to play the game of CROSS-JOIN now you will need to 
delete line 1045, and replace the word INPUT (instead of 
PRINT) in 1040, as well as replacing the semicolon and 
variable at its end. There is a print-out of the game screen 
(just after the program at this chapter end) that was obtained 
by this program. 

Remember these important points: always use ORIGIN 
0,0: before the GOSUB 50000:, and finish that line with END. 
This can be placed anywhere you want in any program of 
which you want to make a print. For instance, in that CROSS- 
JOIN program it could be at line 4115 to obtain a copy of the 
first screenful of instructions. In that case there would be no 
need to alter the previous line, because it is already set to 
PRINT in line 4110. 

Another point: when the item you wish to obtain is on the 
screen, and you are waiting for the printer to spring into 
action, don’t be impatient — it takes a long time to start. It 
takes at least 20 seconds for the first line of print, and this is 
a very long time when one is waiting for the first trial. There- 
fore be patient: unless you get an error message on the screen, 
it will eventually start. If an error message appears then LIST 
50000 — and check the entries. Presumably you already know 
that the dash after the number makes it continue to scroll the 
list. 

Never stop the printer in the middle of a DUMP procedure. 
If you do it is essential to use a direct entry of ‘PRINT#8, 
CHR$(15) before you try listing anything on the computer. 
Also directly enter PRINT#8,CHRS(27)“@”. The @ sign 
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between those inverted commas (after (27)) is on the key 
just after P. That entry will clear the printer of any hang-over 
instructions. 

If this chapter has helped you handle the DMP1 a little 
better, its purpose will have been achieved. Read the Printer 
Manual thoroughly; pages 9 to 19 are full of information that 
makes more sense as you progress. On page 12, for instance, 
those numbers down the left-hand side are CHR$ numbers 
(some of which are met in the DUMP program). Keep on 
studying. 


FEM EXEKRAKERAERREEELERERE 

REM #2#44% BASIC CUMP REESE 

FEM $RERREERERERAREREREERE 

REM ORIGIN @,4:GOSUB 39@08: EHD 
DIM Ant 3285 

WIOTH 255 

T=413 

FOR B4=0 TO 235 

T=T-14 

FOR Cxs6 TO 313 

GUSUB Feeneg 

Ae C4 URS LA+S AN +5 34454445 5%+56% 


StS am Se ae So 


=, 
a! 


=, 
a! 


Ue 
pee mp ee ee SS 


WIS Se SOHO ee 
Co a Se SS a 


HEAT 
PRINT#S, CHRIS 27 9: CHES 75 93 CHES 
PEE Benes 

on ou=o TO 320: PRIHT#3. CHRSCA 

>MEAT 

| PRINT#B, CHREC AX S29) 

HEAT 

| PRINTHS, CHRSC 15 
ERASE AX 
RETURM 
S1%=-14¢ TESTCC! 
S2K=-1K¢ TESTCCHK: 


CA Ln + CA A Ch 
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Lac 


mat TN Ca CD 


wpa LA fe TO 


M™ Gama co mim 


Pa fa batho ha ho 


cH Cn 


S3a=-L#t TESTC Cx#2,7T- 4 Hg 4 
S44=-14¢ TESTC CA*K2, T-6 93 eS 
Soaa=-1*¢ TESTO CHEZ, T-3 o> BIELE 
SeA4=-1LEC TESTOCK#E2, T-18 52-6 koe 
S74=-14k0 TESTCC4Z#2,T- 12998 764 
RETF 
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INDEX 


Page 
ALPHABETICAL SORT ......:......... 000 eee 21 
ALTERATIONS..........00-0 cee ee eeeeeee 67 
ANAGRAMMATISM...........02-. +0 ee eeeees 6 
ANAGRAMS ).3.4.6 So SSoels. wore eeuaarad woulae es 1,40 
CANYONCROSSING...........--.-0000 eee 75, 82 
CROSS-JOIN WORDS............0.0c cee eee 55,59 
CROSSED LINES ROUTINE ...............00-- 12 
CROSSWORD SOLVER .............00000 . 48,51 
DMP IF fb. vede ce Pousti acd GG a while he Moke eH eae ee 92 
ERASING 5 ccigind-hescealeve airate as Avetar alae hich as" Ek Boas 57 
GOSUB/RETURN ..............00-5eeee 2, 34, 79 
GUESS THE WORD ................200 eee 40, 44 
ELASEDoveesshicccshew bores, Gib Morag ese hs tov tree te Rte a 21,75 
HOW MANY WORDS .............. 2000 eee 32, 36 
IF SEQUENCE .......... 0c cece eee eee eee ees 43 
INPUT/PRINT ............ 0.00 e eee eee eeaee 57 
KEY DEFINING ...........:-000eeeeceeeaee 76 
TERT S ctx Sy ote he ha Oe bei ee Seas 3,31 
LEN Co Sctin, stage gaviare pare a BsIee ee Alne.e Seton 3, 66 
LETTER EATER ........... 0.00. cee eee eee 29, 34 
LETTER EXTRACTION ...........-.00 00 eee 4,13 
MID So ceciiatrc as tee seh aatis ie orag ne Sih cant ereeake 3 
MOVEALETTER .............000- 0c ee eeaes 15 
MOVE BALI 3. 3 eb ot bie 62 Wel Sadao eke 31 
MULTIPLE ANSWERS ..............2000ee eee 56 
MULTIPLE OUTPUTS .............. 0000 cece 13 
PLOTTING BOARD ............2.0000eeeeeaee 10 
PRINTER? se: .e'cactieid aed or iw weg ak ok 24, 32,58 
RANDOM DATA ............ 0.00 cece e eee 44 
RANDOM SORT/COLOURS ...............4. 29, 30 
RANDOMIZE TIME ................ 00-00-00 ee 58 
READ/DATA .............. eee e eee 23,41, 42 
RENUM ............ 0000 cece eens fiat 22 
RIGHES?:. 2550054 3 ie ida add Ad ch ee ee eee 3,31 
RIND o).2.:0/ id. os Betas aya eta talag Rts Wola dee een he 3 
SCORING i eo5 ok oie ook Soe Pee geese gl doen bdlane a's 33 
SCREEN DUMP PROCEDURE ................ 93, 94 


99 


SCREEN DUMP? ees sce costs 22s Bea ee ee Poe es 92,95 
SHUFFLE FORMULA .......... 0.0.00 0000000. 8 
SOUND ..... Sigs Betarih abe eNS Sikes, ay hte whieh, donee PAE "8 80 
SPACING LETTERS... ....... 0.0... 50 0000008. 68 
SRG ia ein, eb ayia Sue teres ao iaricitg tet gb Ye ages aiden wae iets hae Say Hee 5 
SQUARE OF LETTERS ..................0005. 1 
STRINGS 44 28 4 x eho bee 66 Sa eles ea ope shel ea Saas 48 
TAG/TAGOEF co. oot scchgicdin Coke Ble ee end ee es 58, 68 
THINK OF A WORD SQUARE................ 64, 69 
TRANSPARENT MODE .................0005. _79 
UPPER/LOWER ¢ 0.5.5 58 hd eek bale wee ee ON wens Oe 44,55 
VARIABLES. js iets. tls Solis Sey 2 0G Ge OS, ond a SHS Bb ae 66 
VARIOUS ROUTINES .................00008. 50 
WHILE/WEND 6.506 i8 Sb nee Ga eh are he del we Sie A 20 
WINDOW USE ................ 0-000 eae 20, 40, 75 
WORD SORD™ syiige:5 a ie oie Sl ah terac cease oi aang Rebbe e ahs 25 


100 


Notes 


101 


Please note following is a list of other titles that are available in our 
range of Radio, Electronics and Computer Books. 

These should be available from all good Booksellers, Radio Com- 
ponent Dealers and Mail Order Companies. 

However, should you experience difficulty in obtaining any title in 
your area, then please write directly to the Publisher enclosing payment 
to cover the cost of the book plus adequate postage. 

If you would like a complete catalogue of our entire range of Radio, 
Electronics and Computer Books then please send a Stamped Addressed 
Envelope to:— 


BERNARD BABANI (publishing) LTD 
THE GRAMPIANS 
SHEPHERDS BUSH ROAD 
LONDON W6 7NF 
ENGLAND 
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202 


205 
208 
214 
219 
220 


221 
222 
223 
224 
225 
226 
227 
228 
RCC 
BP1 
RP2 


BP6 
BP7 
BP14 
BP24 
BP27 


BP28 
BP29 
BP32 
BP33 
BP34 
BP36 


BP37 
BP39 
BP42 
BP43 
BP44 
BP45 
BP47 
BP48 
BP49 
BP50 
BPS1 
BP52 


BP53 
BP54 
BP55 
BP56 
BP57 
BPS8 
BP59 
BP60 


BP61 
BP62 
BP63 
BP64 
BP65 
BP66 
BP67 
BP68 
BP69 
BP70 
BP71 
BP72 
BP73 
BP74 
BP75 
BP76 


Coil Design and Construction Manual 
Handbook of Integrated Circuits (IC's) - 
Equivalents & Substitutes 

First Book of Hi-Fi Loudspeaker Enclosures 
Practical Stereo and Quadrophony Handbook 
Audio Enthusiasts Handbook 

Solid State Novelty Projects 

Build Your Own Solid State Hi-Fi and Audio 
Accessories 

28 Tested Transistor Projects 

Solid State Short Wave Receivers for Beginners 

50 Projects Using 1C CA3130 

50 CMOS IC Projects 

A Practical Introduction to Digital IC’s 

How to Build Advanced Short Wave Receivers 
Beginners Guide to Building Electronic Projects 
Essential Theory for the Electronics Hobbyist 
Resistor Colour Code Disc 

First Book of Transistor Equivalents and Substitutes 
Handbook of Radio, TV, Ind & Transmitting Tube & 
Valve Equivalents 

Engineers and Machinists Reference Tables 

Radio and Electronic Colour Codes and Data Chart 
Second Book of Transistor Equivalents & Substitutes 
52 Projects Using 1C741 

Chart of Radio, Electronic, Semi-conductor and 
Logic Symbols : 

Resistor Selection Handbook 

Major Solid State Audio Hi-Fi Construction Projects 
How to Build Your Own Metal and Treasure Locators 
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